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This publication contains information required by system and 
application programmers to use the data management access method 
functions of MVS/Extended Architecture Data Facility Product, 
Program Number 5665-XA2. It describes and defines the data 
management macro instructions—~except for VSAM (virtual storage 
access method)-available in the assembler language. See 
"Related Publications" on page iv for the related VSAM 
publications. 


This publication is divided into these parts: 


e "Introduction" on page 1 defines and discusses macro 
instructions and the rules to be followed when when coding 
them, and the notational conventions used throughout the 
publication. 


e "Macro Instruction Descriptions" on page 8 defines and 
discusses the functions of each macro instruction and how 
each must be coded. The macro instructions are presented in 
alphabetic order. The standard form of each is described 
farst, followed by the list and execute forms. The list and 
execute forms are available only for those macro 
instructions that pass parameters ina list. 


e Appendix A, "Status Information Following an Input/Output 
Operation" on page 192, defines and discusses the location, 
alignment, and description of the symbolic fields in the 
data event control block and the event control block. 


e Appendix B, "Data Management Macro Instructions Available by 
Access Method" on page 193, defines and discusses the macro 
instructions available for each of the data management 
access methods. 


e Appendix C, "Device Capacities" on page 194, defines and 
discusses device capacities as a guide to coding the block 
size and logical record length operands in the DCB macro 
instruction. 


e Appendix D, "DCB Exit List Format and Contents" on page 197, 
defines and discusses the format and content of the data 
control block exit list. 


@ Appendix E, "Control Characters" on page 199, defines and 
discusses the control characters used to control spacing and 
skipping Cprinters) and stacker selection (card read punch 
or card punch). | 


¢ Appendix F, "Data Control Block Symbolic Field Names" on 
page 202, defines and discusses the location, alignment, and 
description of the data control block symbolic field names. 


e Appendix G, "PDABD Symbolic Field Names™ on page 219, 
defines and discusses the location, alignment, and 
description of the PDABD dummy control section. 


e "Glossary of Terms and Abbreviations" on page 220 defines 


and discusses the definitions of the terms and abbreviations 
used in this publication. 
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PREREQUISITE KNOWLEDGE 


To use this book you must faa knowledge of assembler language 


as described in Assembler H Version 2 Appiicatien Programming: 
Lan uage Reference, GC26-4037, and Assemble Version 


Application Programming: Guide, SC26-49036, and of job control 
language (JCL) as explained in MVS/Extended Architecture JCL 
User's Guide, GC28-1351, and S7Extended Archite 

Reference, GC28-1352. 


If you know how to write assembler language programs and use job 
control statements, you can use this book and MVS/Extended 
Architecture Data Administration Guide, GC26-414940, to write 
programs that create and process data sets. 


REQUIRED PUBLICATIONS 


ELATED PUBLIC 


0 


S) 


You should be familiar with the information presented in the 
following publications: 


® ssembler H Version Lcati am 
Reference, GC26-403/7 


e ssembler Versio tcati ramni ; ide, 
$C26-4036 

e VS7Extended Architecture Lni I Guide, 
GC26-4140 

® VS7Extended Architecture System Pro itbrary: 

Supervisor Services and Macro Sees GC28-1154 
@ MVSZExtended Architecture JCL User's Guide, GC28-1351 
e MVSZExtended Architecture JCL Reference, GC28-1352 


Within the text, references are made to the publications listed 
in the table below: 


Order 
Short Title Publication Title 
Assembler H V2 j $C26-4036 
Application j j i : 
Programming: j 
Guide 
Assembler H V2 i GC26-4037 
Application i i i : 
Programming: Language Reference 
Language 
Reference 7 


Checkpoint/Restart| MVS/Extended Architecture GC26-4139 
User's Guide Checkpoint/Restart User's 
Guide 


Conversion MVSZExtended Architecture GC28-1143 
Notebook Conversio oteboo 

Data MVSZExtended Architecture GC26-4140 
Administration Data Administration Guide 

Guide 
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Data Facility 
Product: 
Customization 


IBM 3262 Model 5 
Printer. Product 
Description 


IBM 3800 Printing 
Subsystem 
Programmer's 
Guide 


IBM 3800 Printing 
Subsystem 
Programmer's 
Guide 


IBM 3890 Document 
Processor Machine 
and Programming 
Description 


IBM 4245 Printer 


Model 1 Component. 


Description and 
Operator's Guide 


IBM 42468 Printer 
Model l 
Description 


Initialization 
and Tuning 


JCL User's Guide 
JCL Reference 


Magnetic Tape 
Labels and File 


Structure 
Administration 


Open/Close/EOV 
Logic 


OS/7VS IBM 3886 
Optical Character 
Reader Model 1 

Reference 


OS/VS Mass 
Storage System 


(MSS) Planning™ 


Guide 


OS/VS Mass 
Storage System 
(MSS) Services: 
General 

Information 














Short Title Publication Title 


MVS/Extended Architecture 
Data Facility Product: 
Version 2 Customization 


BM 3262 Model ri 
Product Description 


IBM 3800 Printing Subsystem 
Programmer's Guide 


BM 3800 Printin ubsyste 
odels nd 8 rammer's 
Guide 


BM 3890 Document Proces 
Machine and Programming 
Description 


IBM 42465 Printer Model ] 
Compone Descr] me) 


Operator's Guide 


IBM 4248 Printer Model ] 
Description 





VS7ZExtended chitecture 


System Programming Library: 


Initialization and Tuning 


VSZExtended Architectu 
JCL User's Guide 


MVSZExtended Architecture 
JCL Reference 


MVSZExtended Architecture 
Magnetic Tape Labels and 
File Structure 


Administration 


MVSZExtended Architecture 
Open/Close/EQOV Ke 





OS/VS IBM 3886 Optica 
Character Reader Model] 1] 
Reference 


OS/VS Mass Storage System 
anni Gul 





OS/4VS_ Ma ora ste 
MSS ervices: Ge 
Information 


Order 
Number 


GC26-4267 
GA24-3936 


GC26-3846 
SH35-0061 
GA24-3612 
GA33-1541 


GA24-3927 
GC28-1149 


GC28-1351 


GC28-1352 


GC26-4145 


LY26-3966 


GC24-5101 













GC35-0011 











GC35-0016 
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OS/VS Mass 
Storage System 

(MSS) Extensions 
Services: 
Reference 


OS/VS Mass Storage System 
(MSS) Extensions Services: 
Reference 
























Programming Programming Support for the GC21-5097 
Support for the IBM 3505 Card Reader and the 

IBM 3505 Card IBM 3525 Card Punch 

Reader and the 

IBM 3525 Card 

Punch 

RACF General Resource Access Control GC28-0722 






Information Facility (RACF): General 
Manual Information Manual 





MVS7ZExtended Architecture GC28-1159 


System Programmi ibrary: 
Service Aids 


MVSZExtended Architecture 


Service Aids 

























Supervisor GC28-1154 


Services and System Programming Library: 
Macro Supervisor Services and 


Macro Instructions 


Instructions 















System Codes MVSZExtended Architecture GC28-1157 
essage Library: Syste 
Codes 
System—Data MVS4Extended Architecture GC26-4149 
Administration System—Data Administration | | 
System Generation GC26-4148 


MVSZExtended Architecture 
Installation: System 
Generation : 


MVS7Extended Architecture 
System Programming Library: 
Macros and Facilities, 


Volumes 1 and 2 


MVSZExtended Architecture 
Message Library: System 
Messages, Volumes 1 and 


VS/Extende rchitecture 


an 
GC28-1377 
GC26-4150 
Data Administration: 
Utilities 


VSAM MVSZExtended Architecture GC26-4151 
Administration y dministration Guid 
Guide 


VSAM MVSZExtended Architecture GC26-4152 
Administration: VSAM Administration: Macro 










GC28-1150 
and | 
GC28-1151 











System Macros and 
Facilities 




















GC28-1376 
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System Messages 
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Macro Instruction structio erenc 
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U CHANGES 


| RELEASE 3.0, JUNE 1987 


| NEW PROGRAMMING SUPPORT 


This release provides virtual storage constraint relief by 
allowing VSAM control blocks to be obtained above 16M. Changes 
have been made to each of the three forms of the OPEN and CLOSE 
macros to allow for a new long form parameter list. The new 
long form allows for 3l-bit addresses. The default is the 
standard form parameter list with 24-bit addresses. 


A new DCB exit list code, X'13', has been added to RDJFCB to 
retrieve allocation information. Changes have been made to 
Appendix D, "DCB Exit List Format and Contents™ to document the 
new exit list code. 


| CUSTOMIZATION RESTRUCTURE 


(| 


SERVICE CHANGES 


Ss UGUS 


LEAS 0 PRI 


NEW DEVICE SUPPORT 


Detailed information on exception codes and status indicators 
from Appendix A, "Status Information Following an Input/Output 
Operation" on page 192 has been moved to Data Facility Product: 
Customization. 


Minor technical changes have been made. In addition, 
documentation for the TYPE=J operand has been added to the 
descriptions of each of the three forms of the OPEN macro. 


86 


Technical changes have been made concerning certain functions. 
These changes are reflected in sections of the book with 
vertical change bars. 


8 


Information has been added to support the: 


e IBM 3380 Models ADG, BD4, AES, and BEG Direct Access Storage 
devices 

e IBM 4245, 4248, and 3262 Model 5 Printers 

e IBM 3430 Tape Drive 

e IBM 3480 Magnetic Tape Subsystem 


Summary of Changes vii 





NEW PROGRAMMING SUPPORT 


Information has been added that describes the: 


@ SYNCDEV macro ff ‘ 
¢ MSGDISP macro ae, 
VERSION 2 PUBLICATIONS 
The Preface includes new order numbers for Version 2. 
cx 
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INTRODUCTION 


Before using this publication, familiarize yourself with the 
information in dminis j ul ; 


IBM provides a set of macro instructions so that you can 
communicate service requests to the data management access 
method routines. These macro instructions are available only 
when the assembler language is being used, and they are 
processed by the assembler program uSing macro definitions 
supplied by IBM and placed in the macro library when the 
operating system 1s generated. 


The assembler program expands each macro instruction into 
executable, assembler language instructions or data, and shows 
you the exact macro expansion in the assembler listing. The 
executable instructions generally consist of branches around 
data fields, load register instructions, and either branch 
instructions or supervisor calls (SVC) that transfer control to 
the proper program. The data fields in each macro instruction 
are parameters that are passed to the access method routine. 


You can use the utility program IEBPTPCH to get a list of macro 
definitions from SYS]1.MACLIB, the library in which the macro 
definitions are stored. For a description of IEBPTPCH, see 


Utilities. 


Before coding programs that request Supervisor services, 
familiarize yourself with the information contained in 
Supervisor Services and Macro Instructions. Also, if you are 
writing programs for specialized applications such as 
telecommunications, graphics, character recognition, or to use 
VSAM (virtual storage access method), use the appropriate 

fo publication listed in the preface that describes the specific 

( access method and/or device type you are working with. 


The operation of some macro instructions depends on the options 
selected when the macro instruction is coded. For these macro 
instructions, either separate descriptions are provided or the 
differences are listed within a single description. If no 
differences are explicitly listed, none exist. The description 
of each macro instruction starts on a right-hand page; the 
descriptions that do not apply to the access methods being used 
can be removed. Appendix B, "Data Management Macro Instructions 
Available by Access Method" on page 193 lists the macro 
instructions available for each access method. 


0 s N S$ LABELS 


This publication refers to tape labels defined by the 
International Organization for Standardization (ISO), the 
American National Standards Institute CANSI), and the Federal 
Information Processing Standard (FIPS). In general, 
ISO/ANSI/FIPS labels are similar to IBM standard labels, and, 
unless otherwise specified, the term "standard label," refers to 
both IBM standard labels and ISO/ANSI/FIPS standard labels. IS0 
labeled tapes are coded in the Organization Standard Code for 
Information Interchange CISCII), and ANSI labeled tapes are 
coded in the American National Standards Code for Information 
Interchange CASCII), while IBM labeled tapes are coded either in 
the extended binary-coded-decimal interchange code CEBCDIC) or 
in binary coded decimal (BCD). For further information about 
ISO/ANSI/FIPS labels, see j j 

structure. 
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CODING AID 


BOLD TYPE 





Bold type is used for elements that you must code exactly as 
they are shown. These elements consist of macro names, 
keywords, and these punctuation symbols: commas, parentheses, 
and equal signs. Examples: 3 Rte 
e DCB 

@ CLOSE »»»,TYPE=T 

e MACRF=(PL, PTC) 


e SK,5 


UNDERSCORED LOWERCASE LETTERS 


Underscored lowercase letters are used for elements for which 
you code values that you choose, usually according to 
specifications and limits described for each parameter. 


Examples: 

@ number 

e image-id 
e cou 


BRACKETS 


Brackets, [ 1, enclose optional elements that you may or may not _ 
code as you choose. Examples: —_ 


e [length] ares 
e CMF=E] 


OR SIGN 
The OR sign, |, separates alternative elements. Examples: 
e C,REREAD|, LEAVE] 
e [lengthI'S'] 


BRACES 


Braces, { }, enclose alternative elements from which you must 
choose one, and only one, element. Examples: 


e BFTEK={S]|A} 
® {K|D} 
e {address|$]0} 


Sometimes, alternative elements Cespecially complicated 
alternatives) are grouped in a vertical stack of braces. 


Example: 
MACRF={{(RIC|P1])} 
CCWIC|P]L1])} 
{(RIC],WIC] )}} ; 
> 
In the examples above, you must choose only one element from the eg 
vertical stack. uy 
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ELLIPSES 


UNDERSCORED BOLD 


BLANK SYMBOL 


Ellipses, ..-, indicate that elements may be repeated. 
Example: 


° (debaddr, [Coptions)],...) 


Underscored BOLD elements indicate alternative choices that are 
assumed if you don't want to code the optional element. 
Examples: 

e [EROPT={ACCISKP|ABE}] 


e [BFALN={F[D}] 


The blank symbol, b, indicates omitted operands. Example: 


Ca 


COMPREHENSIVE EXAMPLE 


UC 


® MF=(E, {address| (1)}) 


In this example, MF=(E, must be coded exactly as shown. 
Then, either address or (1) must be coded. (The parentheses 
around the 1 are required.) Finally, the closing 
parenthesis must be coded. Thus, MF=(E,(1)) might be coded. 


e RECFM= Ete 
{vl ea be 
tDEBII Al} 
{FCBIS|TIBSIBTILAIMI}} 


In this example, you must first choose one of the four 
alternative elements shown on each line. Then, you must 
choose one of the major elements. Assuming you selected the 
major element beginning with F, you would code F; then you 
could choose one of B, S, T, BS, or BT. Finally, you could 
select either A or M. Thus, you might code any one of the 
following: RECFM=FBTM, RECFM=FA, or RECFM=F. 


Data management macro instructions are subject to the rules of 
assembler language and are written in the following format: 


[wane [operation | aperanda ‘| coments 


sfork a 









None, one or more 
operands separated 
by commas 






blank 
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Use the operands to specify services and options you need and 
code them according to the following general rules: 


@ If the operand you select is shown in bold capital letters 
(for example, MACRF=WL), code the operand exactly as shown. 


e If the operand you select is a character string in bold type 
(for example, if the type operand of a READ macro 
instruction is SF), code the operand exactly as shown. 


@ If the operand is shown in underscored lowercase letters 
(for example, dcb address), substitute the indicated 


address, name, or value. 


® If the operand is a combination of bold capital letters and 
underscored lowercase letters (for example, LRECL=absexp), 
code the capital letters and equal sign exactly as shown and 
substitute the appropriate address, name, or value for the 
underscored lowercase letters. 


e Code commas and parentheses exactly as shown. 


Note: Omit the comma that follows the last operand ina 
statement. Brackets and braces show how to use commas and 
parentheses the same way they show how to use operands. 


6 Several macro instructions contain the designation 'S'. Use 
the apostrophe on both sides of the S operand. 


If you need to substitute a name, value, or address, the 
notation you use depends on the operand you are coding. The 
following two examples show how an operand can be coded: 


DDNAME=symbol] 
In this example, you can only code a valid 
assembler-language symbol for the operand. 


dcb address—RX-Type Address, (2-12), or (1) 
In the above example, you can substitute an RX-type 
address, any general register 2 through 12, or general 
register 1. 


The following examples show what each notation means and how you 
can code an operand 


This notation indicates that the operand can be any valid 
assembler~language symbol. 


a 

This notation indicates that the operand can be any decimal 
digit cP to the maximum value allowed for the specific 
operand. 


(2-12) 
This notation indicates that the operand can be any of the 
general registers 2 through ]2. All register operands must 
be coded in parentheses; for example, if you code register 
3, use the form (3). If you want to use one of the 
registers 2 through ]2, code it as a decimal digit, a 
symbol Cequated to a decimal digit), or an expression that 
yields a value of 2 through 12. 


(]) : 
When this notation is shown, general register ] can be used 
aS an operand. The register can be specified as a decimal 
digit ] enclosed in parentheses. When register ] is used 
as an operand, the instruction that loads the parameter 
value into the register is not included in the macro 
expansion. 


(0) 
When this notation is shown, general register Q can be used 
aS an operand. The register can be specified as a decimal 
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digit 0 enclosed in parentheses. When register Q is used 
as an operand, the instruction that loads the parameter 
value into the register is not included in the macro 


( expansion. 


When this notation is shown, the operand can be specified 
as any valid assembler-language RX-type address. The 
following shows examples of each valid RX-type address: 


Name Operation Operand 

ALPHA1 L 1,39€4,10) 
ALPHA2 L REG1,39(€4, TEN) 
BETAI] L 2,ZETACG) 

BETA2 L REG2, ZETACREGG) 
GAMMA1 L 2,ZETA 

GAMMA2 L REG2,ZETA 
GAMMA3 L 2,=F'1000! 
LAMBDA1 L 3,20¢€,5) 


Both ALPHA instructions specify explicit addresses; REG] 
and TEN are absolute symbols. Both BETA instructions 
specify implied addresses, and both use index registers. 
Indexing is omitted from the GAMMA instructions. GAMMA] 
and GAMMA2 specify implied addresses. The second operand 
of GAMMA3 is a literal. LAMBDA] specifies an explicit 
address with no indexing. 


A-Type Address 
When this notation is shown, the operand can be specified 
as any address that can be written as a valid 
assembler-language A-type address constant. An A-type 
address constant can be written as an absolute value, a 
relocatable symbol, or a relocatable expression. Operands 
that require an A-type address are inserted into an A-type 
address constant during the macro expansion process. For 
( more details about A- ~type scclee constants, see Asse mbier 





When this notation is shown, the operand can be an absolute 
value or expression. An absolute expression can be an 
absolute term or an arithmetic combination of absolute 
terms. An absolute term can be a nonrelocatable symbol, a 
self-defining term, or the length attribute reference. For 
more details about. absolute expressions, see Assembler _H 
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When this notation is shown, the operand can be a 

relocatable symbol or expression. A relocatable symbol or 

expression is one whose value changes by n if the program 

in which it appears is relocated n bytes away from its 

originally assigned area of storage. For more details 
about relocatable symbols and expressions, see Assembler _H 
: J rd 2 OI ae A : aS- = at =? 





RULES FOR REGISTER USAGE 


Many macro instruction expansions include instructions that use 
a base register previously defined by a USING statement. The 
USING statement must establish addressability so that macro 
expansion can include a branch around the in-line parameter 
list, if present, and see the data fields and addresses 
specified in the macro instruction operands. 


Macro instructions that use a BAL or BALR instruction to pass 
control to an access method routine, normally require that 
register 13 contain the address of an 18-word register-save 
area. The READ, WRITE, CHECK, GET, and PUT macro instructions 
are of this type. 
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Macro instructions that use a supervisor call (SVC) instruction 

to pass control to an access method routine may modify general 

registers 0, 1, 14; and 15 without restoring them. Unless  — — | 
otherwise specified in the macro instruction description, the ff 
contents of these registers are undefined when the system | a, 
returns control to the problem program. es 


When an operand is specified as a register, the problem program 
must have inserted the value or address to be used into the 
register as follows: 


e Unless the macro instruction description states otherwise, 
and the register is to contain a value, that value must be 
placed in the low-order portion of the register. Any unused 
bits in the register should be set to zero. 


e If the register is to contain a 2l-bit address, the address 
must be placed in the low-order three bytes of the register, 
and the high-order byte of the register should be set to 
zero. | 


e If the register is to contain a 3l-bit address, the address 
must be placed in the low-order 31 bits of the register, and 
the high-order bit of the register should be set to zero. 


Note that, if the macro instruction accepts the RX-type address, 
the high-order byte of a register can be efficiently cleared by 
coding the parameter as 0 (reg) rather than merely as (reg).? 
Then the macro instruction expands as: 

LA parmreg, 0Creg) by macro 


rather than: 


LA reg, 0Creg) by user 
and | 
LR  parmreg,reg by macro 7 


RULES FOR CONTINUATION LINES 


The operand field of a macro instruction can be continued on one 
or more additional lines as follows: 


1. Enter a continuation character (not blank, and not part of 
the operand coding) in column 72 of the line. | 


2. Continue the operand field on the next line, starting in 
column 16. All columns to the left of column 16 must be 
blank. 





1 For 3l-bit addressing mode expansion, the high-order bit of 
a register can be cleared using this same technique. 
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The operand field being continued can be coded in one of two 
ways. The operand field can be coded through column 71, with no 
blanks, and be continued in column 16 of the next line, or the 
operand field can be truncated by a comma, where a comma 
normally falls, with at least one blank before column 71, and 
then be continued in column 16 of the next line. An example of 
each method is shown in the following illustration: 


Name Operation Operand Comments 

NAME1 OPI OPERAND1, OPERAND2, OPERAND3, OPERAND4G, OPERANDS, OPERAND6, OPERX 
AND7 , OPERAND8 THIS IS ONE WAY 

NAME2 OP2 OPERAND1,OPERAND2, THIS IS ANOTHER WAY X 
OPERAND3, X 
OPERAND4 
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STRUCTIO 


ES ONS 


DL-~BUILD DIRECTO ST_(B 


The BLDL macro is used to complete a list of information from 
the directory of a partitioned data set. The problem program 
must supply a storage area that must include information about 
the number of entries in the list, the length of each entry, and 
the name of each data set member Cor alias) before the BLDL 
macro is issued. Data set member names in the list must be in 
alphameric order. All read and write operations using the same 
data control block must have been tested for completion before 
the BLDL macro is issued. 


The BLDL macro is written: 


Csymbol]| BLDL deb _ address 
»list address 


dcb address-—-RX-Type Address, (2-12) or (1) 
The dcb address operand specifies the address of the data 
control block for an open partitioned data set, or zero can 
be specified to indicate that the data set is ina job 
library, step library, or link library. 


list address—RX-Type Address, (2-12), or (0) 
The list address operand specifies the address of the list 
to be completed when the BLDL macro is issued. The list 
address must be on a halfword boundary. The following 
illustration shows the format of the list: 


List 0 or 
List Description List More 
Address 5 Field Entry (LL bytes) Entries (FF total) 


Length 


(bytes) 2 2 0 to 62 


FF: This field must contain a binary value indicating the 
total number of entries in the list. 


LL: This field must contain a binary value indicating the 
length, in bytes, of each entry in the list Cmust be an 
even number of bytes). If the exact length of the entry is 
known, specify the exact length. Otherwise, specify at 
least 58 bytes (decimal) if the list is to be used with an 
ATTACH, LINK, LOAD, or XCTL macro. The minimum length for 
a list is 12 bytes. 


NAME: This field must contain the member name or alias to 
be located. The name must start in the first byte of the 
name field and be padded to the right with blanks (if 
necessary) to fill the 8-byte field. 
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BLDL 


When the BLDL macro 1s executed, five fields of the 
directory entry list are filled in by the system. The 
specified length (LL) must be at least 14 to fill in the Z 
and C fields. If the LL field is 12, only the NAME, TT> R,» 
and K fields are returned. The five fields are: 


TT: Indicates the relative track number where the 
beginning of the data set member is located. 


R: Indicates the relative block Crecord) number on the 
track indicated by TT. 


K: Indicates the concatenation number of the data set. 
For the first or only data set, this value is zero. 


Z: Indicates where the system found the directory entry: 


Code Meaning 


0 Private library 
1 Link library 
2 Job, task, or step library 


3-255 Job, task, or step library of parent task n, where 
n= Z- 


C: Indicates the type (member or alias) for the name, the 
number of note list fields (TTRNs), and the length of the 
user data field Cindicated in halfwords). The following 
describes the meaning of the 8 bits: 


Bit Meaning 
0=0 Indicates a member name. 
0=] Indicates an alias. 


1-2 Indicate the number of TTRN fields (maximum of 3) in 
the user data field. 


3-7 Indicate the total number of halfwords in the user 
data field. If the list entry is to be used with an 
ATTACH, LINK, LOAD, or XCTL macro, the value in bits 
3 through 7 is 22 (decimal). 


USER DATA: The user data field contains the user data from 
the directory entry. If the length of the user data field 
in the BLDL list is equal to or greater than the user data 
field of the directory entry, the entire user data field is 
entered into the list. Otherwise, the list contains only 
the user data for which there is space. 
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BLDL 
COMPLETION CODES — 


When the system returns control to the problem program, the 
low-order byte of register 15 contains a return code; the 
low-order byte of register 0 contains a reason code, as follows: 


Return | 
Code (15) 


00 (X'00') 
04 (X'04") 


08 €X*'08'") 


08 CX'08') 


08 CX*'08") 


Reason 
Code (0) 


00 (X'00') 


00 ¢X'00') 


00 (X*00') 


04 (X'04") 


08 (X'08') 


Meaning 


Successful completion. 


One or more entries in the list could 
not be filled; the list supplied may be 
invalid. If a search is attempted but 
the entry is not found, the R field 
Cbyte 11) for that entry is set to 


zero. 


A permanent I/0 error was detected when 
the system attempted to search the 


directory. 


Insufficient virtual storage was 


available. 


Invalid DEB. 


(Not in key 0 through 7.) 
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BSP 
AL_ RECORD (BSAM="MAGNETI APE AND DIRE ACCESS O 


The BSP macro causes the current volume to be backspaced one 
data block (physical record). All input and output operations 
must be tested for completion before the BSP macro is issued. 
The BSP macro should not be used if the CNTRL, NOTE, or POINT 
macro 18S being used. The BSP macro can be used only on data 
sets created by BSAM. 


Any attempt to backspace across a file mark will result ina 
return code of X'04' and your tape or direct access volume will 
not be repositioned. This means you cannot issue a successful 
BSP macro after your EQDAD routine is entered unless you first 
reposition the tape or direct access volume into your data set. 
See TYPE=T would get you repositioned at the end of your data 
set. 


Magnetic Tape: A backspace is always made toward the beginning 
of the tape. 


Direct Access Device: A BSP macro must not be issued for a data 
set created by using track overflow. 


SYSIN or SYSOUT Data Sets: A BSP macro is ignored, but a 
completion code is returned. 


The BSP macro is written: 


[symbol] | BSP dcb address 


dcb address—RX-Type Address, (2-12), or (1) 
The dcb address operand specifies the address of the data 
control block for the volume to be backspaced. The data 
set on the volume to be backspaced must be opened before 
issuing the BSP macro. 
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BSP 
COMPLETION CODES 


When the system returns control to the problem program, 





the 


low-order byte of register 15 contains a return code; the 
low-order byte of register 0 contains a reason code, as follows: 


Return 
Code (15) 


00 
04 


04 


04 


04 


04 


04 


04 


04 
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CX'00") 
(X'04') 


CX'04") 


CX'04") 


CX'04'") 


CX*04') 


CX'04') 


CX*04") 


CX'04') 


Reason 
Code (0) 


00 
01 


02 


03 


04 


05 


06 


07 


08 


(X*00") 
CX*O1") 


(X'02") 


CX'03') 


(X'04") 


(X'05') 


(X'06°) 


(X'07°) 


CX*08") 


Meaning 


Successful completion. 


A backspacing request was ignored ona 
SYSIN or SYSOUT data set. 


Backspace not supported for this device 
type. 


Backspace not successful; insufficient 
Virtual storage was available. 
Backspace not successful; permanent I/0 
error. 


Backspace into load point or beyond 
start of data set on the current 
volume. 


Backspace detected an invalid DEB using 
DEBCHECK. 


Backspace detected an invalid extend 
value (M) 


Backspace issued while I/0 was in 


progress. 
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UILD~~BUILD 





| BUILD 
OOL (BDAM, BISAM, BPAM, BS Is D _QSAM 


The BUILD macro is used to construct a buffer pool in an area 
provided by the problem program. The buffer pool may be used by 
more than one data set through separate data control blocks. 
Individual buffers are obtained from the buffer pool using the 
GETBUF macro, and buffers are returned to the buffer pool using 


a FREEBUF macro. See Data Administration Guide for an 
explanation of the interaction of the DCB, BUILD, and GETBUF 
macros in each access method, and the buffer size requirements. 


The BUILD macro is written: 


Csymbol]| BUILD area address 
»{number of buffers, buffer length! (0)} 


area address——RX-Type Address, (2-12), or (1) 
The area address operand specifies the address of the area 
to be used as a buffer pool. The area must start ona 
fullword boundary. 


The following illustration shows the format of the buffer 


pool: 
= 


8 bytes i pues . 


Length 


Area 
Address 





Buffer Pool 
Control 
Block 


Buffer 









Area Length 
Area Length=(Buffer Length) x (Number of Buffers) +8 
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BUILD 





ALber of buffers—symbol, decimal digit, absexp, or (2-12) 


The number-of-buffers operand specifies the number of 
buffers in the buffer pool to a maximum of 255 


buffer length—symbol, decimal digit, absexp, or (2-12) 


(0) 


Bits: 


The buffer length operand specifies the length, in bytes, 
of each buffer in the buffer pool. The value specified for 
the buffer length must be a fullword multiple; otherwise, 
the system rounds the value specified to the next higher 
fullword multiple. The maximum length that can be 
specified is 32760 bytes. For QSAM, the buffer length must 
be at least as large as the value specified in the block 
size CDCBBLKSI}) field of the data control block. | 


The number of buffers and buffer length can be specified in 
general register 0. If €0) is coded, register 0 must 
contain the binary values for the number of buffers and 
buffer length as shown in the following illustration. 


Register 0 


Number of Buffers | Buffer Length 
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BUILDRCD 





The BUILDRCD macro causes a buffer pool and a record area to be 
constructed in a user-provided storage area. This macro is used 
only for variable-length, spanned records processed in QSAM 
locate mode. If the extended logical record interface (XLRI) is 
used to process RECFM=DS or RECFM=DBS records CISO/ANSI/FIPS 
Variable spanned or variable blocked spanned), you can use the 
BUILDRCD macro to build a record area to a maximum length of 
16777183 bytes. Use of this macro before the data set is 
opened, or before the end of the DCB open exit routine, will 
provide a buffer pool that can be used for a logical record 


- interface rather than a segment interface for variable-length 


spanned records. To invoke a logical record interface, specify 
BFTEK=A in the DCB. The BUILDRCD macro cannot be specified when 
logical records exceed 32760 bytes. 


The standard form of the BUILDRCD macro is written as follows 
Cthe list and execute forms are shown following the description 
of the standard form): 


BUILDRCD area address 
snumber of buffers 


uffe 


buffer length 
»record area address 
[,record area length] 





area address—A-Type Address or (2-12) 
The area address operand specifies the address of the area 


to be used as a buffer pool. The area must start ona 
fullword boundary. 
number of buffers—symbol, decimal digit, absexp, or (2-12) 


The number-of-buffers operand specifies the number of 
buffers, to a maximum of 255, to be in the buffer pool. 


e —symbol, decimal digit, absexp, or (2- 12) 
The buffer- length operand specifies the length, in bytes, 
of each buffer in the buffer pool. The value specified for 
the buffer length must be a fullword multiple; otherwise, 
the system rounds the value specified to the next higher 
fullword multiple. The maximum length that can be 
specified is 32760. 


record area address-——A-Type Address or (2-12) 
The record area address operand specifies the address of 
the storage area to be used as a record area. The area 
must start on a doubleword boundary and have a length of 
the maximum logical record (LRECL) plus 32 bytes. 


record area length—symbol, decimal digit, absexp, or (2-12) 
The record area length operand specifies the length of the 
record area to be used. The area must be as long as the 
maximum length logical record plus 32 bytes for control 
information. If the record area length operand is omitted, 
the problem program must store the record area length in 
the first four bytes of the record area. 
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BUILDRCD 


The following illustration shows the format of the buffer pool: 


Area 
Address 


BUFAD BUFLG|BUFNO| BUFLTH BUFRECAD 


Address of First Length of Address 


Available Buffer Each of Record Buffer 
Buffer Area 













4 bytes I byte 1] byte 2 bytes 4 bytes Buffer 
12 bytes 


Buffer Pool Control Block 


Buffer 


Length 
Area Length 


Area Length = (Buffer Length) x (Number of Buffers) +12 


BUFLG Flags: 
Bit Meaning 


O0=1 Record area present 

l=1 Buffer control block extended 
2-7 Reserved 

Notes: 


1. The buffer pool control block contains the address of the 
record area anda flag that indicates logical-record 
interface processing of variable-length, spanned records. 


2. It is the user's responsibility to release the buffer pool 
and the record area after a CLOSE macro has been issued for 
all the data control blocks that use the buffer pool and the 
record area. 
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BUILDRCD-~LIST FORM 





BUILDRCD 


The list form of the BUILDRCD macro is used to construct a 
program parameter list. The description of the standard form of 
the BUILDRCD macro instruction provides the explanation of the 
function of each operand. The description of the standard form 
also indicates the operands that are totally optional and those 
that are required in at least one of the pair of list and 
execute forms. The format description below indicates the 
optional and required operands in the list form only. 


The list form of the BUILDRCD macro is written: 


[symbo]]]/ BUILDRCD 





area _address—-A-Type Address 

umbe buffers——symbol, decimal digit, or absexp 
buffer length—symbol, decimal digit, or absexp 
record area address—-A~-Type Address 


record area length—symbol, decimal digit, or absexp 
MF=L 


The MF=L operand specifies that the BUILDRCD macro 
instruction is used to create a parameter list that will be 
referenced by an execute form instruction. 


Note: A parameter list can be constructed by coding only the 
MF=L operand (without the preceding comma); in this case, the 
list is constructed for the area address, number of buffers, 
buffer length, and record area address operands. If the record 
lage oe operand is also required, the operands can be coded 
as follows: 


[symbol] BUILDRCD ,,,0,MF=L 
The preceding example shows the coding to construct a list 
containing address constants with a value of 0 in each constant. 


The actual values can then be supplied by the execute form of 
the BUILDRCD macro. 
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BUILDRCD 
BUILDRCD-—“EXECUTE FORM 


A remote parameter list is referred to, and can be modified by, 
the execute form of the BUILDRCD macro. The description of the 
standard form of the BUILDRCD macro instruction provides the 
explanation of the function of each operand. The description of 
the standard form also indicates the operands that are totally 
optional and those that are required in at least one of the pair 
of list and execute forms. The format description below 
ris ela hate the optional and required operands for the execute 

orm only. 


The execute form of the BUILDRCD macro is written: 


[symbol]]} BUILDRCD [area address] 
» (number of buffers] 
»Cbuffer length] 


»Crecord area address] 
, irecord area_lenatht 


»sMF=(E,C{list address|(1)}) 





area address-——Rx-Type Address or (2-12) 
umbe buffers——absexp 


uff engqth——absexp 


record area address——RX-Type Address or (2-12) 


ecord area len —absexp 


MF=(E,flist address](1)}) 
This operand specifies that the execute form of the 
BUILDRCD macro instruction is used, and an existing 
parameter list Ccreated by a list-form instruction) will be 
used. The MF= operand is coded as described in the 
following: 


E 
list address—RX-Type Address, (2-12), or (1) 
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AND _BSAM) 


BS 


OR 


CHECK 
S$ OMPLETION OF A READ OR WRITE OPERATION (BDAM, BISAM, BPA 


The CHECK macro causes the active task to be placed in the wait 
condition, if necessary, until the associated input or output 
operation is completed. The input or output operation is then 
tested for errors and exceptional conditions. If the operation 
1s completed successfully, control is returned to the 
instruction following the CHECK macro. If the operation is not 
completed successfully, the error analysis (CSYNAD) routine is 
given control or, if no error analysis routine is provided, the 
task is abnormally terminated. The error analysis routine is 
discussed in the SYNAD operand of the DCB macro. 


The following conditions are also handled for BPAM and BSAM 
only: 


When Reading: The end-of-data CEODAD) routine is given control 
1f an input request is made after all the records have been 
retrieved. Volume switching is automatic for a BSAM data set 
that is not opened for UPDAT. For a BSAM data set that is 
opened for update, the end-of-data routine is entered at the end 
of each volume. 


When Writing: Additional space on the device is obtained when 
the current space is filled and more WRITE macro instructions 
have been issued. 


For BPAM and BSAM, a CHECK macro must be issued for each input 

and output operation, and must be issued in the same order as 

the READ or WRITE macros were issued for the data set. For BDAM 

or BISAM, either a CHECK or a WAIT macro can be used. For 
information on when the WAIT macro can be used, see Data 
dministration Guid 


If the ISCII/ASCII translation routines are included when the 
operating system 18S generated, translation can be requested by 
coding LABEL=C€,AL) or €,AUL) in the DD statement, or it can be 
requested by coding OPTCD=Q in the DCB macro or DCB subparameter 
of the DD statement. If translation is requested, the check 
routine automatically translates BSAM records, as they are read, 
from ISCII/ASCII code to EBCDIC code, provided that the record 
format is F, FB, D, DB, or U. Translation occurs as soon as the 
check routine determines that the input buffer is full. For 
translation to occur correctly, all input data must be in ISCII 
or ASCII code. 


The CHECK macro is written: 


[symbol deck waddress addres 
» DSORG= TL; DSORG={TSTALL?] | 


decbh address—RX-Type Address, (2-12), or (]) 
The decb address operand specifies the address of the data 
event control block created by the associated READ or WRITE 
macro or used by the associated input or output operation. 


DSORG={IS|ALL} 
The DSORG operand specifies the type of data set 
organization. The following describes the characters that 
can be coded: 


Is 
Specifies that the program generated is for BISAM use 
only. 


ALL 
Specifies that the program generated is for BDAM, 
BISAM, BPAM, or BSAM use. 


If the DSORG operand is omitted, the program generated is 
for BDAM, BPAM, or BSAM use only. 
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CHKPT 
CHKPT—TAK CHECKPOINT FOR RESTART WITHI OB 


The CHKPT macro is coded in-line in the problem program. When 
this macro executes, the operating system writes a checkpoint 
entry in a checkpoint data set. The entry consists of job step 
information, such as virtual-storage data areas, data set 
position, and supervisor control, from the problem program. The 
problem program automatically restarts with the instruction 
immediately following the CHKPT macro. 





For details on the CHKPT macro, see Checkpoint/Restart User's 
Guide. 
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CLOSE 
OSE~~LOGICALLY DISCONNECT A DATA S$ [BDAM, BISA BPAM, BSAM, QISAH, AND QSA 


The CLOSE. macro causes output data set labels to be created and 

ce volumes to be positioned as specified by the user. The fields 

( | of the data control block are restored to the condition that 

existed before the OPEN macro was issued, and the data set is 

disconnected from the processing program. Final volume 
positioning or disposition for the current volume can be 
specified to override the positioning implied by the DD control 
statement DISP parameter. Any number of dcb address operands 
and associated options may be specified in the CLOSE macro. 


Associated data sets for an IBM 3525 Card Punch can be closed in 
any sequence, but, if one data set is closed, J]/0 operations 
cannot be initiated for any of its associated data sets. 
Additional information about closing associated data sets is 
contained in Da dmini j J 


After a CLOSE has been issued for several data sets, a return 
code of 4 indicates that at least one of the data sets, VSAM or 
non-VSAM, was not closed successfully. 


A FREEPOOL macro should normally follow a CLOSE macro 
instruction (without TYPE=T) to regain the buffer pool storage 
space and to allow a new buffer pool to be built if the DCB is 
reopened with different record size attributes. 


A special operand, TYPE=T, is provided for processing with BSAM. 


The standard form of the CLOSE macro is written as follows Cthe 
list and execute forms are shown following the description of 
the standard form): 


[symbol1]} CLOSE (dcb address, l[option,...1) 
[,TYPE=T] 
| [»MODE=24|31] 


( : dcb address—A-Type Address or (2-12) 
specifies the address of the data control block for the 
opened data set that is to be closed. 


One of these options indicates the volume positioning that 
is to occur when the data set is closed. This option is 
generally used with the TYPE=T operand or for data sets on 
magnetic tape. However, options specified in the CLOSE 
macro will override disposition specifications in the JCL 
for all data sets. The options are: 


REREAD 
specifies that the current volume is to be positioned 
to reprocess the data set. If processing was forward, 
the volume is positioned to the beginning of the data 
set; if processing was backward (RDBACK), the volume 
1s positioned to the end of the data set. 
FREE=CLOSE is specified in the JCL, the data set is 
not unallocated until the end of the job step. 


LEAVE 
specifies that the current volume is to be positioned 
to the logical end of the data set. If processing was 
forward, the volume is positioned to the end of the 
data set; if processing was backward (RDBACK), the 
volume is positioned to the beginning of the data set. 


REWIND 
specifies that the current magnetic tape volume is to 
be positioned at the load point, regardless of the 
direction of processing. REWIND cannot be specified 
when TYPE=T is specified. If FREE=CLOSE has been : 
coded on the DD statement associated with the data set 
being closed, coding the REWIND option will result in 
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the data set being freed at the time it is closed 
rather than at the termination of the job step. 


FREE | 

specifies that the current data set is to be freed at 
the time the data set is closed, rather than at the 
time the job step is terminated. For tape data sets; 
this means that the volume is eligible for use by 
other tasks or to be demounted. Direct access volumes 
may also be freed for use by other tasks. They may be 
freed for demounting if (1) no other data sets on the 
volume are open and (2) the volume is otherwise 
demountable. Do not use this option with CLOSE 
TYPE=T. (For other restrictions on the FREE 
parameter, see JCL.) 


DISP 
specifies that a tape volume is to be disposed of in 
the manner implied by the DD statement associated with 
the data set. Direct access volume positioning and 
disposition are not affected by this parameter. There 
are several dispositions that can be specified in the 
DISP parameter of the DD statement; DISP can be PASS,» 
DELETE, KEEP, CATLG, or UNCATLG. | 


Depending on how the DISP option is coded in the DD 
statement, the current magnetic tape volume will be 
positioned as follows: 


DISP Parameter Action 

PASS Forward space to the end of 
data set on the current 
volume. 

DELETE Rewind the current volume. 


KEEP, CATLG, or UNCATLG The volume is positioned as 
for CLOSE REREAD. Note that 
the volume is not rewound and 
unloaded. 


If FREE=CLOSE has been coded in the DD statement 
associated with this data set, coding the DISP option 
in the CLOSE macro will result in the data set being 
freed when the data set is closed, rather than at the 
time the job step is terminated. 


Note: When the option operand is omitted, DISP is assumed. 
For TYPE=T, this 1s processed as LEAVE during execution. 


The LEAVE and REREAD options are meaningless except for 
magnetic tape and CLOSE TYPE=T. 


TYPE=T 
You can code CLOSE TYPE=T to perform some close functions 
for sequential data sets on magnetic tape and direct access 
volumes processed with BSAM. When you use TYPE=T, the DCB 
used to process the data set maintains its open status, and 
you should not issue another OPEN macro to continue 
processing the same data set. This option cannot be used 
in a SYNAD exit routine. 


The TYPE=T operand causes the system control program to 
process labels, modify some of the fields in the system 
control blocks for that data set, and reposition the volume 
Cor current volume in the case of multivolume data sets) in 
much the same way that the normal CLOSE macro does. When 
you code TYPE=T, you can specify that the volume either be 
positioned at the end of data (the LEAVE option) or be 
repositioned at the beginning of data (the REREAD option). 
Magnetic tape volumes are repositioned either immediately 
before the first data record or immediately after the last 


22 MVS/XA Data Administration: Macro Instruction Reference 


Nba ty : 
2 


—_ 

















CLOSE 


data record; the presence of tape labels has no effect on 
repositioning. 


If you code the RLSE keyword with the SPACE parameter on 
the DD statement that describes the output data set, it is 
ignored by temporary close (CLOSE TYPE=T). If the last 
operation occurring prior to the normal CLOSE Cwithout 
TYPE=T) and after the temporary close was a write, then any 
unused space will be released. 


MODE=24|31 
You can code CLOSE MODE=31 to specify a long form parameter 
list that will be able to contain 3l-bit addresses. The 
default, MODE=24, will specify a standard form parameter 
list with 24-bit addresses. 


The standard form parameter list is 4 bytes per entry. The 
standard form parameter list must reside below 16M, but the 
calling program may be above 16M. It 1s assumed that all 
ACBs and DCBs are below 16M. 


The long form parameter list can reside above or below 16M. 
Each entry is 8 bytes long. Option information is contained 
in the first byte, zeros in the next three bytes, and the 
address of the ACB or DCB is contained in the last four 
bytes. Although the ACB or DCB address is contained in a 
G-byte field, the DCB must be below 16M. Except for VSAM 
or VTAM ACBs, all ACBs must also be below 16M. Therefore, 
the leading byte of the ACB or DCB address must contain 


zeros. If the byte contains something other than zeros, an 
tah message will be issued and the data set ana not be 
closed 


Note: It is up to you to keep the mode specified in the 
MF=L and MF=E versions of the OPEN and CLOSE macros 
consistent. Errors and unpredictable results will occur if 
the specified modes are inconsistent. 


Note: To use the CLOSE macro instruction supplied in the 
MVS/“XA macro library on MVS/370, use the SPLEVEL macro 
instruction. You must use the SPLEVEL macro instruction to 
ensure that the MVS/XA version of the CLOSE macro 
instruction executes successfully on MVS/370. For more 
cage on how to use the SPLEVEL macro, see System 
Macros and Facilities, Volume 2. 


For additional information and coding restrictions, see 
a dministrati Gul 
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The list form of the CLOSE macro is used to construct a data 
management parameter list. Any number of operands (data control 
block addresses and associated options) can be specified. 


The list consists of a one-word entry for each DCB in the 
parameter list; the high-order byte is used for the options and 
the three low-order bytes are used for the DCB address. The end 
of the list is indicated by a l1 in the high-order bit of the 
last entry's option byte. The length of a list generated by a 
list-form instruction must be equal to the maximum length 
required by an execute-form instruction that refers to the same 
ear A maximum length list can be constructed by one of two 
methods: 


e Code a list-form instruction with the maximum number of 
parameters that are required by an execute-form instruction 
that refers to the list. 


e Code a maximum length list by using commas ina list- form 
instruction to acquire a list of the appropriate size. For 
example,, coding CLOSE (,,,,,,,,,),MF=L would provide a list 
of five fullwords (five dcb addresses and five options). 


Entries at the end of the list that are not referenced by the 
execute-form instruction are assumed to have been filled in when 
the list was constructed or by a previous execute-form 
instruction. Before using the execute-form instruction, you may 
shorten the list by placing a 1 in the high-order bit of the 
last DCB entry to be processed. 


A zeroed work area on a word boundary is equivalent to CLOSE 
€,DISP,...),MF=L and can be used in place of a list-form 
instruction. The high-order bit of the last DCB entry must 
contain a 1 before this list can be used with the execute-form 
instruction. 


A parameter list constructed by a CLOSE macro, list form, can be 
referred to by either an OPEN or CLOSE execute-form instruction. 


The description of the standard form of the CLOSE macro provides 
the explanation of the function of each operand. The 

description of the standard form also indicates the operands 
that are completely optional and those required in at least one 

of the pair of list and execute forms. The format description 

Pre aes the optional and required operands in the list 
orm only. 


The list form of the CLOSE macro is written: 


C[symbol]| CLOSE 


(—Cdcb address1,loption!I,... } 
[> TYPE=T] 
b 


’ 


F=L 
[,MODE=24131] 





dcb address—A-Type Address 
option—Same as standard form 


TYPE=T 
The TYPE=T operand can be coded in the list-form 
instruction to allow the specified option to be checked for 
validity when the program is assembled. 


The MF=L operand specifies that the CLOSE macro instruction 
is used to create a data management parameter list that 
will be referred to by an execute-form instruction. 
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MODE=24[31 


You can code CLOSE MODE=31 to specify a long form parameter 
list that will be able to contain 3l-bit addresses. The 
default, MODE=24, will specify a standard form parameter 
list with 24-bit addresses. 


The standard form parameter list is 4 bytes per entry. The 
standard form parameter list must reside below 16M, but the 
calling program may be above 16M. It is assumed that all 
ACBs and DCBs are below 16M. 


The long form parameter list can reside above or below 16M. 
Each entry is 8 bytes long. Option information is contained 
in the first byte, zeros in the next three bytes, and the 
address of the ACB or DCB is contained in the last four 
bytes. Although the ACB or DCB address is contained in a 
G-byte field, the DCB must be below 16M. Except for VSAM 
or VTAM ACBs, all ACBs must also be below 16M. Therefore, 
the leading byte of the ACB or DCB address must contain 
zeros. If the byte contains something other than zeros, an 
apc message will be issued and the data set will not be 
closed. 


Note: It is up to you to keep the mode specified in the 
MF=L and MF=E versions of the OPEN and CLOSE macros 
consistent. Errors and unpredictable results will occur if 
the specified modes are inconsistent. 
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A list form of the CLOSE macro is used in and can be modified by 
the execute form of the CLOSE macro. The parameter list can be 
generated by the list form of either an OPEN macro or a CLOSE 
macro. 


The description of the standard form of the CLOSE macro provides 
the explanation of the function of each operand. The 
description of the standard form also indicates the operands 
that are totally optional and those required in at least one of 
the pair of list and execute forms. The format description 
below indicates the optional and required operands in the 
execute form only. 


The execute form of the CLOSE macro is written: 


[symbol]} CLOSE 





dcb address-—RX-Type Address or (2-12) 


option—If specified, same as the standard form. If 
specified, the option specified in the list form of Aas CLOSE 
macro will be used. 


TYPE=T—Same as standard form. 


MF=(E,f{address o e list form|(1)}) 
specifies that the execute form of the CLOSE macro 
instruction 1s being used, and the parameter list is 
created by the list form of the CLOSE macro instruction. 
The MF= operand is coded as described in the following: 


address of the list form of the CLOSE Cor OPEN) macro 
instruction——RXxX-Type Address, (2-12), or (1) 


MODE=24|31 
You can code CLOSE MODE=31 to specify a long form parameter 
list that will be able to contain 3l-bit addresses. The 
default, MODE=24, will specify a standard form parameter 
list with 24-bit addresses. 


The standard form parameter list is 4 bytes per entry. The 
standard form parameter list must reside below 16M, but the 
calling program may be above 16M. It 1s assumed that all 
ACBs and DCBs are below 16M. 


The long form parameter list can reside above or below 16M. 
Each entry is 8 bytes long. Option information is contained 
in the first byte, zeros in the next three bytes, and the 
address of the ACB or DCB is contained in the last four 
bytes. Although the ACB or DCB address is contained in a 
G-byte field, the DCB must be below 16M. Except for VSAM 
or VTAM ACBs, all ACBs must also be below 16M. Therefore, 
the leading byte of the ACB or DCB address must contain 


zeros. If the byte contains something other than zeros, an 
ee message will be issued and the data set will not be 
closed. 


Note: It is up to you to keep the mode specified in the 
MF=L and MF=E versions of the OPEN and CLOSE macros 
consistent. Errors and unpredictable results will occur if 
the specified modes are inconsistent 
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CNTRL 
——CO OL ONLI UT/0U DEVICE (BSAM AND QSA 


The CNTRL macro is used to control magnetic tape drives CBSAM 
a only for a data set that is not open for output), on-line card 
( readers, IBM 3525 Card Punches Cread and print features), 

printers (BSAM and QSAM), and the IBM 3890 Document Processor 


CQSAM only). For information on additional operands for the 
CNTRL macro for the 3890, see JBM 3890 Document Processor 
ine ogrammy escription. 


The MACRF operand of the DCB macro must specify a C. The CNTRL 
macro 1S ignored for SYSIN or SYSOUT data sets. For BSAM, all 
input and output operations must be tested for completion before 
Sees macro 1s issued. The control facilities available are 
as follows: 


Card Reader: Provides stacker selection, as follows: 


QSAM—For unblocked records, a CNTRL macro should be issued 
after every input request. For blocked records, a CNIRL macro 
is issued after the last logical record on each card that is 
retrieved. Whether reading blocked or unblocked records, do not 
issue a CNTRL macro after a GET macro has caused control to pass 
to the EODAD routine. The move mode of the GET macro must be 
used, and the number of buffers (BUFNO field of the DCB) must be 


ie If a CLOSE macro is issued before the last card is read, the 
operator should clear the reader before the device is used 
again. 

BSAM——The CNTRL macro should be issued after every input 
request. 

Printer: Provides line spacing or a skip to a specific carriage 
control channel. A CNTRL macro cannot be used if carriage 
control characters are provided in the record. If the printer 


contains the universal character set feature, data checks should 
ay sta elas COPTCD=U should not appear in the data control 
( oc : 


Magnetic Tape: Provides method of forward spacing and 
backspacing (BSAM only for a data set that is not open for 
output). If OPTCD=H is indicated in the data control block, the 
CNTRL macro can be used to perform record positioning on DOS 
tapes that contain embedded checkpoint records. Embedded 
checkpoint records encountered during the record positioning are 
bypassed and are not counted as blocks spaced over. OPTCD=H 
must be specified in a job control language DD statement. The 
CNTRL macro cannot be used to backspace DOS 7-track tapes that 
are written in data convert mode that contain embedded 
checkpoint records CBSAM). 


Note: The CNTRL macro should not be used with output operations 
on BSAM tape data sets. 


3525 Printing: Provides line spacing or a skip to a specific 
printing line on the card. The card contains 25 printing lines; 
the odd-numbered lines 1 through 23 correspond to the printer 
skip channels 1 through 12 (see the SK operand). For additional 
information about 3525 printing operations, see OS and OS/VS 
Programming Support for the IBM 3505 Card Reader and JBM 3525 


Card Punch. 
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The CNTRL macro is written: 


[symbol]} CNTRL dcb address 
{,SS,{1|2}} 
{,SP,{1|[2|3}} 
{> 
{, 





Sk{112]... 11211239 
{,BSM} 

FSH} 
{;BSRE,number of blocks]} 
{,FSRC,number of blocks]} 





dcb_ address 
The dcb address operand specifies the address of the data 
control block for the data set opened for the on-line 
device. 


eonele 
he SS operand is coded as shown to indicate that the 
ibis ap function requested is stacker selection on a card 
reader; either l or 2 must be coded to indicate which 
stacker is to be selected. 


SP,{1|2]|3} 
The SP operand is coded as shown to indicate that the 
control function requested is printer line spacing or 3525 
card punch line spacing; either 1, 2, or 3 must be coded to 
indicate the number of spaces for each print line. 


SK,fT1{/2]...}/11]12} 
The SK operand is coded as shown to indicate that the 
control function requested is a skip operation.on the 
printer or 3525 card punch, print feature; a number (1 
through 12) must be coded to indicate the channel or print 
line to which the skip is to be taken. 


BSM | 

The BSM operand indicates that the control function ! 
requested is to backspace the magnetic tape past a aed 
tapemark, then forward space over. the tapemark. When this 

operand is specified, the DCBBLKCT field in the data 

control block is set to zero. 


FSM | 

The FSM operand indicates that the control function 
requested is to forward space the magnetic tape over a 
tapemark, then backspace past the tapemark. When this 
operand is specified, the DCBBLKCT field in the data 
control block is set to zero. 


BSR 
The BSR operand indicates that the control function 
requested is to backspace the magnetic tape the number of 
blocks indicated in the number-of-blocks operand. 


FSR 
The FSR operand indicates that the control function 
requested is to forward space the magnetic tape the number 
of blocks indicated in the number-of-blocks operand. 
/ 


number of blocks—symbol, decimal digit, absexp, or (2-12) 
The number-of-blocks operand specifies the number of 
- blocks to backspace (see BSR operand) or forward space 
(see FSR operand) the magnetic tape. The maximum 
value that can be specified is 32767. If the 
number-of-blocks operand is omitted, 1 is assumed. 
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If the forward space or backspace operation is not completed 
successfully, control is passed to the error analysis (SYNAD) 
routine; if no SYNAD exit routine is designated, the task is 
abnormally terminated. Register contents, when control is 
passed to the error analysis routine, are shown in 

Appendix A, "Status Information Following an Input/Output 
Operation" on page 192. If a tapemark is encountered for BSR or 
FSR, control is returned to the processing program, and register 
15 contains a count of the uncompleted forward spaces or 
backspaces. If the operation is completed normally, register 15 
contains the value zero. 
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DCB-—CONSTRUC DATA CONTROL BLOC BDA 
The data control block for a basic direct access method CBDAM) 
data set is constructed during assembly of the problem program. 
The DSORG and MACRF operands must be coded in the DCB macro 
instruction, but the other operands can be supplied from the DD 
statement or an existing data set label (DSCB). If more than 
one of these sources specifies information for a particular 
field, the order of priority is the DCB macro instruction, DD 
statement, and data set label. Each of the BDAM DCB operand 
descriptions contains a heading, "Source." The information 
under this heading describes the sources from which an operand 
can be supplied to the data control block. 


The DCB macro for BDAM is written: 


[BFALN={F|D}] 
[,BFTEK=R] 
[,BLKSIZE=absexp] 
[,BUFCB=relexp] 
PoeueLeeaexe! 
[ 


[symbol] 


» BUFNO=absexp] 

» DDNAME=symbol]? 
» DSORG={DA| DAU} 
[,EXLST=relexp] 
[(,KEYLEN=absexp] 
[,LIMCT=absexp] 
»MACRF=CCCRCKE [Cl] )} 
[c])} 
L,WLACKICIIJKLIIIJI}(CI] )} 
[,OPTCD={LR| 
[,RECFM={UIV 
C,SYNAD=relexp 


I)/I} 
[IJK 
JI}LX 
[EICF 
peed 





i This parameter must be supplied before an OPEN macro is 
ae for this DCB; it cannot be supplied in the open exit 
routine. 


The following describes the DCB operands that can be specified 
for creating and processing a BDAM data set: 


BFALN={F[D} 
The BFALN operand specifies the boundary alignment for each 
buffer in the buffer pool. The BFALN operand can be 
specified when (1) BSAM is being used to create a BDAM data 
set and buffers are acquired automatically, (2) when an 
existing BDAM data set is being processed and dynamic 
buffering 1S requested, or €3) when the GETPOOL macro 
instruction is used to construct the buffer pool. If the 
BFALN operand is omitted, the system provides doubleword 
alignment for each buffer. The following describes the 
characters that can be specified: 


F 
specifies that each buffer is aligned on a fullword 
boundary that is not also a doubleword boundary. 


specifies that each buffer is aligned on a doubleword 
boundary. 


If the BUILD macro instruction is used to construct the 
buffer pool or if the problem program controls all 
buffering, the problem program must provide the area for 
the buffers and control buffer alignment. 





Source: 
instruction, 


The BFALN operand can be supplied in the DCB mac 
in the DCB subparameter of a DD statement, 


by the problem program before completion of the data 


control block exit routine. 
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operands are specified, they must be supplied from the same 
source. 


BFTEK=R 
The R value coded for the BFTEK operand specifies that the 
data set is being created for or contains variable-length 
spanned records. The BFTEK operand can be coded only when 
the record format is specified as RECFM=VS. 





When variable-length spanned records are written, the data 
length can exceed the total capacity of a single track on 
the direct access device being used, or it can exceed the 
remaining capacity on a given track. The system divides 
the data block into segments (if necessary), writes the 
first segment on a track, and writes the remaining 
segment(s) on the following track(s). 


When a variable-length spanned record is read, the system 
reads each segment and assembles a complete data block in 
the buffer designated in the area address operand of a READ 
macro instruction. 


Note: Variable-length spanned records can also be read 
using BSAM. When BSAM is used to read a BDAM 
variable-length spanned record, the record is read one 
segment at a time, and the problem program must assemble 


the segments into a complete data block. This operation is 
described in the section for the BSAM DCB macro 
instruction. 


Source: The BFTEK operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. If both the BFTEK and BFALN 
operands are specified, they must be supplied from the same 


source. 
( | BLKSIZE=absexp (maximum value is 32760) 
oe The BLKSIZE operand specifies the length, in bytes, of each 


data block for fixed-length records, or it specifies the 
maximum length, in bytes, of each data block for 
variable-length or undefined-length records. If keys are 
used, the length of the key is not included in the value 
specified for the BLKSIZE operand. 


The actual value that can be specified in the BLKSIZE 
operand depends on the record format and the type of direct 
access device being used. If track overflow is used or if 
variable-length spanned records are used, the value 
specified in the BLKSIZE operand can be up to the maximum. 
For all other record formats (F, V, VBS, and U), the 
maximum value that can be specified in the BLKSIZE operand 
is determined by the track capacity of a single track on 
the direct access device being used. Device capacity for 
direct access devices is described in Appendix C, "Device 
Capacities" on page 194 of this publication. For 
additional information about device capacity and space 
allocation, see Data Administration Guide. 


Source: The BLKSIZE operand can be supplied in the DCB 
macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before completion of the 
data control block exit routine, or by the data set label 
of an existing data set. 


BUFCB=relexp 
The BUFCB operand specifies the address of the buffer pool 
control block when the buffer pool 1s constructed by a 
BUILD macro instruction. 


If the buffer pool is constructed automatically, 
dynamically, or by a GETPOOL macro instruction, the system 
places the address of the buffer pool control block into 
the data control block, and the BUFCB operand is not 
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required. The BUFCB operand is not required if the problem 
program controls all buffering. 

eos 
Source: The BUFCB operand can be supplied in the DCB macro a | 
instruction or by the problem program before completion of Ye 
the data control block exit routine. 


BUFL=absexp (maximum value KEYLEN + BLKSIZE is 32760) 
The BUFL operand specifies the length, in bytes, of each 
buffer in the buffer pool when the buffers are acquired 
automatically (create BDAM) or dynamically Cexisting BDAM). 


When buffers are acquired automatically Ccreate BDAM), the 
BUFL operand is optional; if specified, the value must be 
at least as large as the sum of the values specified for 
the KEYLEN and BLKSIZE operands. If the BUFL operand is 
omitted, the system constructs buffers with a length equal 
to the sum of the values specified in the KEYLEN and 
BLKSIZE operands. 


The BUFL operand must be specified when an existing BDAM 
data set is being processed and dynamic buffering is 
requested. Its value must be at least as large as the 
value specified for the BLKSIZE operand when the READ or 
WRITE macro instruction specifies a Key address, or the 
value specified in the BUFL operand must be at least as 
large as the sum of the values specified in the KEYLEN and 
BLKSIZE operands if the READ and WRITE macro instructions 
specify 'S' for the Key address. 


The BUFL operand can be omitted if the buffer pool is 
constructed by a BUILD or GETPOOL macro instruction or if 
the problem program controls all buffering. 


Source: The BUFL operand can be supplied in the DCB macro 

instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data git xh 
control block exit routine. . 


BUFNO=absexp (maximum value is 255) 
The BUFNO operand specifies the number of buffers. to be 
constructed by a BUILD macro instruction, or it specifies 
the number of buffers and/or segment work areas to be 
acquired by the system. 


If the buffer pool is constructed by a BUILD macro 
instruction or if buffers are acquired automatically when 
BSAM is used to create a BDAM data set, the number of 
buffers must be specified in the BUFNO operand. 


If dynamic buffering is requested when an éxistane BDAM 
data set 1s being processed, the BUFNO operand is optional; 
if omitted, the system acquires two buffers. 


If variable-length spanned records are being processed and 
dynamic buffering is requested, the system also acquires a 
segment work area for each buffer. If dynamic buffering is 
not requested, the system acquires the number of segment 
work areas specified in the BUFNO operand. If the BUFNO 
operand is omitted when variable-length spanned records are 
being processed and dynamic buffering is not requested, the 
system acquires two segment work areas. . 


If the buffer pool is constructed by a GETPOOL macro 
instruction or if the problem program controls all 
buffering, the BUFNO operand can be omitted, unless it is 
required to acquire additional segment work areas for 
variable-length spanned records. 


Source: The BUFNO operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or oo 
by the problem program before completion of the data (a 

control block exit routine. 
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DDNAME=symbol 
The DDNAME operand specifies the name used to identify the 
job control language data definition (DD) statement that 
defines the data set being created or processed. 





Source: The DDNAME operand can be supplied in the DCB macro 
instruction or can be moved into the DCB by the problem 
program before an OPEN macro instruction is issued to open 
the data set. 


DSORG={DA] DAU} 
The DSORG operand specifies the data set organization and 
whether the data set contains any location-dependent 
information that would make it unmovable. For example, if 
actual device addresses are used to process a BDAM data 
set, the data set may be unmovable. The following 
describes the characters that can be specified: 


DA 
specifies a direct organization data set. 


DAU 
specifies a direct organization data set that contains 
location-dependent information. 


When a BDAM data set is created, the basic sequential 
access method (CBSAM) 1s used. The DSORG operand in the DCB 
macro instruction must be coded as DSORG=PS or PSU when the 
data set 1s created, and the DCB subparameter in the 
corresponding DD statement must be coded as DSORG=DA or 
DAU. This creates a data set with a data set label 
identifying it as a BDAM data set. 


Source: The DSORG operand must be specified in the DCB 
macro instruction. See the preceding comment about 
creating a BDAM data set. 


( EXLST=relexp 

a The EXLST operand specifies the address of the problem 
program exit list. The EXLST operand must be specified if 
the problem program processes user labels during the open 
or close routine, if the data control block exit routine is 
used for additional processing, or if the DCB abend exit is 
used for abend condition analysis. 


For the format and requirements of exit list processing, 
see Appendix D, "DCB Exit List Format and Contents™ on 
page 197. For additional information about exit list 
processing, see Data Administrati i 


Source: The EXLST operand can be supplied in the DCB macro 
eet ir aaa or by the problem program before the exit 1s 
needed. 


KEYLEN=absexp (maximum value is 255) 
The KEYLEN operand specifies the length, in bytes, of all 
keys used in the data set. When Keys are used, a key is 
associated with each data block in the data set. If the 
key length is not supplied by any source, no input or 
output requests that require a key can be specified in a 
READ or WRITE macro instruction. 


Source: The KEYLEN operand can be supplied in the DCB 
macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before the completion of 
the data control block exit routine, or by an existing data 
set label. If KEYLEN=0 is specified in the DCB macro 
instruction, a special indicator is set in RECFM so that 
KEYLEN cannot be supplied from the DCB subparameter of a DD 
statement or data set label of an existing data set. 
KEYLEN=0 can be coded only in the DCB macro instruction and 
will be ignored if specified in the DD statement. 
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LIMCT=absexp 


The LIMCT operand specifies the number of blocks or tracks 
to be searched when the extended search option (OPTCD=E) is 
requested. 


When the extended search option is requested ane relative 
block addressing is used, the records must be fixed-length 
record format. The system converts the number of blocks 
specified in the LIMCT operand into the number of tracks 
required to contain the blocks, then proceeds in the manner 
described below for relative track addressing. 


When the extended search option is requested and relative 
track addressing is used Cor the number of blocks has been 
converted to the number of tracks), the system searches for 
two things: (Ca) the block specified in a READ or WRITE 
macro instruction (€type DK), or (€b) available space where 
it can add a block CWRITE macro instruction, type DA). The 
search 1s as follows: 


1. The search begins at the track specified by the block 
address operand of a READ or WRITE macro instruction. 


2. The search continues until the search is satisfied, the 
number of tracks specified in the LIMCT operand have 
been searched, or the entire data set has been © 
searched. If the search has not been satisfied when 
the last track of the data set is reached, the system 
continues the search by starting at the first track of 
the data set if the EOF marker is on the last track 
that was allocated to the data set. (This operation 
allows the number specified in the LIMNCT operand to 
exceed the size of the data set, causing the entire 
data set to be searched.) You can ensure that the EOF 
marker 1s on the last allocated track by determining 
the size of the data set and allocating space in 
blocks, or by allocating space in tracks and including 
the RLSE parameter on the SPACE operand of the DD 
statement CRLSE specifies that all unused tracks be 
returned to the system). 


The problem program can change the DCBLIMCT field in the 
data control block at any time, but, if the extended search 
option is used, the DCBLIMCT field must not be zero when a 
READ or WRITE macro instruction is issued. 


If the extended search option is not requested, the system 
ignores the LIMCT operand, and the search for a data block 
is limited to a single track. 


Source: The LIMCT operand can be supplied in the DCB macro 
instruction, the DCB subparameter of a DD statement, or by 
the problem program before the count is required by a READ 
or WRITE macro instruction. 


MACRF={£CRCKCITI{IFCXICSIC[C])} 


CCWLALKICTI(KETI[ I} (C1 )}3 

CORCKEIIJIFCXICSIICI,WLAI KIL II] KLII]/I}3£C1)}} 
The MACRF operand specifies the type of macro instructions 
CREAD, WRITE, CHECK, and WAIT) used when the data set is 
processed. The MACRF operand also specifies the type of 
search argument and BDAM functions used with the data set. 
When BSAM is used to create a BDAM data set, the BSAM 
operand MACRF=WL is specified. This special operand 
invokes the BSAM routine that can create a BDAM data set. 
The following describes the characters that can be 
specified for BDAM: 


A 
pe that data blocks are to be added to the data 
set. 
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specifies that CHECK macro instructions are used to 
test for completion of read and write operations. If 
C is not specified, WAIT macro instructions must be 
used to test for completion of read and write 
operations. 


specifies that the search argument is to be the block 
identification portion of the data block. If relative 
addressing is used, the system. converts the relative 
address to a full device address (MBBCCHHR) before the 


search. 


specifies that the search argument is to be the key 
portion of the data block. The location of the key to 
be used as a search argument is specified in a READ or 
WRITE macro instruction. 


specifies that READ macro instructions are to be used. 
READ macro instructions can be issued when the data 
set is opened for INPUT, OUTPUT, or UPDAT. 


specifies that dynamic buffering 1s requested by 
specifying 'S' in the area address operand of a READ 
or WRITE macro instruction. 


specifies that WRITE macro instructions are used. 
WRITE macro instructions can be issued only when the 
data set 1s opened for OUTPUT or UPDAT. 


specifies that READ macro instructions request 
exclusive control of a data block. When exclusive 
control is requested, the data block must be released 
by a subsequent WRITE or RELEX macro instruction. 


Source: The MACRF operand must be supplied in the DCB 
macro instruction. | 


OPTCD={(RIAJCEILCFICWI} 


The OPTCD operand specifies the optional services that are 
to be used with the BDAM data set. These options are 
related to the type of addressing used, the extended search 
option, block position feedback, and write-validity 
checking. The following describes the characters that can 
be specified (the characters can be specified in any order, 
and no commas are allowed between characters): 


A 
specifies that actual device addresses (MBBCCHHR) are 
provided to the system when READ or WRITE macro 
instructions are issued. 


specifies that the extended search option is used to 
locate data blocks or available space where a data 
block can be added. When the extended search option 
1S specified, the number of blocks or tracks to be 
searched must be specified in the LIMCT operand. The 
extended search option is ignored if actual addressing 
(OPTCD=A) is also specified. The extended search 
option requires that the data set have Keys and that 
the search be made by key (Cby specifying DK in the 
READ or WRITE macro or DA in the WRITE macro). 


specifies that block position feedback requested by a 
READ or WRITE macro instruction is to be in the same 
form that was originally presented to the system in 


Macro Instruction Descriptions 35 


DCB (BDAM) 


the READ or WRITE macro instruction. If the F operand 


is omitted, the system provides feedback, when 
requested, in the form of an 8-byte actual device 
address. (Feedback is always provided if exclusive 
control is requested.) 


R 
specifies that relative block addresses (in the form 
of 3-byte binary numbers) are provided to the system 
when a READ or WRITE macro instruction is issued. 

W 


specifies that the system is to perform a validity 
check for each record written. | 


Note: Relative track addressing can only be specified by 
omitting both A and R from the OPTCD operand. If you want 
to specify relative track addressing after your data set 
has been accessed using another addressing scheme COPTCD=A 
or RJ), you should either specify a valid OPTCD operand (E> 
F, or W) in the DCB macro or DD card when you reopen your 
data set, or zero out the OPTCD=A or R bits in the data 
control block exit routine. Note that the first method 
will prevent the open routines from merging any of the 
other OPTCD bits from the format-1 DSCB in the DCB. Both 
methods will update the OPTCD in the DSCB if the open is 
for OUTPUT, OUTIN, or UPDAT. 


Source: The OPTCD operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the DCB open 
exit routine. 


aa de er natal 


ECFM operand specifies the format and characteristics 
ie. "he records in the data set. The following describes 
the characters that can be coded (if the optional 
lila are coded, they must be coded in the order shown 
above): 


B 
specifies that the data set contains blocked records. 
The record format RECFM=VBS is the only combination in 
which B can be specified. RECFM=VBS does not cause 
the system to process spanned records; the problem 
program must block and segment the records. RECFM=VBS 
is treated as a variable-length record by BDAM. 


specifies that the data set contains fixed-length 
records. 


specifies that the data set contains variable-length 
spanned records when it 1s coded as RECFM=VS. When 
RECFM=VBS is coded, the records are treated as 
variable-length records, and the problem program must 
block and segment the records. 


specifies that track overflow is to be used with the 
data set. Track overflow allows a record to be 
partially written on one track and the remainder is 
written on the following track Cif required). 


specifies that the data set contains undefined-length 
records. 


specifies that the data set contains variable-length 
records. 
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Source: The RECFM operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, the 
problem program before completion of the data control block 
exit routine, or by the data set label of an existing data 
set. 


SYNAD=relexp 


The SYNAD operand specifies the address of the error 
analysis routine to be given control when an uncorrectable 
input/output error occurs. The contents of the registers 
when the error analysis routine is given control are 
described in Appendix A, "Status Information Following an 
Input/Output Operation” on page 192. 


The error analysis routine must not use the save area 
pointed to by register 13, because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can issue a RETURN macro instruction that 
uses the address in register 19 to return control to the 
system. When control is returned in this manner, the 
system returns control to the problem program and proceeds 
as though no error had been encountered. When a BDAM data 
set 1s being created, a return from the error analysis 


i to the system causes abnormal termination of the 
task. 


If the SYNAD operand is omitted, the task is abnormally 
terminated when an uncorrectable input/output error occurs. 


Source: The SYNAD operand can be supplied in the DCB macro 


instruction or by the problem program. The problem program 
can also change the error routine address at any time. 
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DATA CONTROL BLOCK (BISAM 


The data control block for the basic indexed sequential access 
method (CBISAM) is constructed during assembly of the problem 
program. The DSORG and MACRF operands must be coded in the DCB 
macro instruction, but the other DCB operands can be supplied 
from other sources. Each BISAM DCB operand description contains 
a heading, "Source.™ The information under this heading 
describes the sources of the operand that can be supplied to the 
data control block. 


The DCB macro for BISAM is written: 


[symbol] ] [BFALN={F[D}] 
[,»,BUFCB-relexp] 
[,BUFL=absexp] 
[,BUFNO=absexp] 
[»DDNANE=symbol]} 
» DSORG=IS 
[,EXLST=relexp] 
»MACRF={{CCRISIT 

CCWLULAI | 
CCRIUEIS]] 
[,MSHI=relexp] 
[ »-MSWA=relexp] 
[»>NCP=absexp] 
, OPTCD= =C(ELILRILWI)} 
{,SMSI=absexp] 
[,SMSW=absexp] 
[»SYNAD=relexp] 


J 
1 WEULA 1A9£03)39 





1 This parameter must be supplied before an OPEN macro is 
issued for this DCB; it cannot be supplied in the open exit 
routine. 


The following describes the DCB operands that can be supplied 
when the basic indexed sequential access method is used: 


BFALN={F | D} 
The BFALN operand specifies the boundary alignment for each 
buffer in the buffer pool when the buffer pool is acquired 
for use with dynamic buffering or when the buffer pool is 
constructed by a GETPOOL macro instruction. If the BFALN 
operand is omitted, the system provides doubleword 
alignment for each buffer. The following describes the 
characters that can be specified: 


F 
specifies that each buffer is on a fullword boundary 
that 1s not also a doubleword boundary. 


specifies that each buffer is on a doubleword 
boundary. 


If the BUILD macro instruction is used to construct the 
buffer pool, or the problem program controls all buffering, 
the problem program must provide an area for the buffers 
and control buffer alignment. 


Source: The BFALN operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 


BUFCB=relexp 
The BUFCB operand specifies the address of the buffer pool 
control block when the buffer pool is constructed by a 
BUILD macro instruction. 


If dynamic buffering is requested or the buffer pool is 
constructed by a GETPOOL macro instruction, the system 
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places the address of the buffer pool control block into 
the data control block, and the BUFCB operand must be 
ro omitted. The BUFCB operand must be omitted if the problem 
( program controls all buffering. 


Source: The BUFCB operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 


BUFL=absexp (maxitrrum value is 32760) 

The BUFL operand specifies the length of each buffer to be 
constructed by a BUILD or GETPOOL macro instruction. When 
the data set 1S opened, the system computes the minimum 
length required and verifies that the length in the buffer 
pool control block is equal to or greater than the minimum 
required. The system then inserts the computed length into 
the BUFL field of the data control block. 


If dynamic buffering is requested, the system computes the 
buffer length required, and the BUFL operand is not 
required. 


If the problem program controls all buffering, the BUFL 
operand 1s not required. However, an ISAM data set 
requires additional buffer space for system use. For a 
description of the buffer length required for various ISAM 


operations, see Data Administration Guide. 


Source: The BUFL operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 


BUFNO=absexp (maximum value is 255) 
The BUFNO operand specifies the number of buffers requested 
for use with dynamic buffering, or it specifies the number 
a of buffers to be constructed by a BUILD macro instruction. 
( If dynamic buffering is requested but the BUFNO operand is 
omitted, the system automatically acquires two buffers for 
use with dynamic buffering. 


If the GETPOOL macro instruction is used to construct the 
buffer pool, the BUFNO operand is not required 


Source: The BUFNO operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 


DDNAME=symbol 
The DDNAME operand specifies the name used to identify the 
job control language data definition Se eee that defines 
the ISAM data set to be processed. 


Source: The DDNAME operand can be supplied in the DCB 
macro instruction or by the problem program before an OPEN 
macro instruction is issued to open the data set. 


DSORG=IS 
The DSORG operand specifies the indexed sequential 
organization of the data set. IS is the only combination 
of characters that can be coded for BISAM. 


Source: Unless it is for a data set passed from a previous 
job step, the DSORG operand must be coded in the DCB macro 
instruction and in the DCB subparameter of a DD statement. 
In this case, DSORG may be omitted from the DD statement. 


EXLST=relexp 
The EXLST operand specifies the address of the problem 
ooo program exit list. If the problem program uses the data 
( control block exit routine for additional processing, the 
EXLST operand is required. 
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For the format and requirements for exit list processing, 
see Appendix D, "DCB Exit List Format and Contents™ on 
page 197. For additional information about exit list 
processing, see Data ini ] ide. 


Source: The EXLST operand can be supplied in the DCB macro 
instruction or by the problem program before the associated 
exit 1s required. 


MACRF={{£(RISIICI)} 


C(WLIUEA] ]A}1C1)} 

CCRLULSI|SICC],WLULA] [A} [IC] )}} 
The MACRF operand specifies the type of macro instructions 
CREAD, WRITE, CHECK, WAIT, and FREEDBUF) and type of 
processing (add records, dynamic buffering, and update 
records) to be used with the data set being processed. The 
operand can be coded in any of the combinations shown 
bah the following describes the characters that can be 
coded: 


A 
specifies that new records are to be added to the data 
set. This character must be coded if WRITE KN macro 
instructions are used with the data set. 

C 
specifies that the CHECK macro instruction is used to 
test I/0 operations for completion. If C is not 
coded, WAIT macro instructions must be used. 

R 
specifies that READ macro instructions are to be used. 

S$ 
specifies that dynamic buffering is requested in READ 
macro instructions. S should not be specified if the 
problem program provides the buffer pool. 

U 
specifies that records in the data set will be updated 
in place. If U is coded in combination with R, it 
must also be coded in combination with W. For 
example, MACRF=(RU,WU). 

W 


Seeaee that WRITE macro instructions are to be 
used. 


Source: The MACRF operand must be coded in the DCB macro 
instruction. 


MSHI=re 


The MSHI operand specifies the address of the storage area 
used to contain the highest-level master index for the data 
set. The system uses this area to reduce the search time 
required to find a given record in the data set. The MSHI 
operand is coded only when the SMSI operand is coded. 


Source: The MSHI operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 


MSWA=relexp 


The MSWA operand specifies the address of the storage work 
area to be used by the system when new records are being 
added to the data set. This operand is optional, but the 
system acquires a minimum-size work area if the operand is 
omitted. The MSWA operand is coded only when the SMSW 
operand is coded 


Processing efficiency can be increased if more than a 
minimum-size work area 1S provided. For more detailed 
information about work area size, see 
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Note: QISAM uses the DCBMSWA, DCBSMSI, and DCBSMSW fields 
in the data control block as a work area; these fields 
contain meaningful information only when the data set is 
opened for BISAM. 





Source: The MSWA operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 


NCP=absexp (maximum value is 99) 
The NCP operand specifies the maximum number of READ/WRITE 
macro instructions that are issued before the first CHECK 
Cor WAIT) macro instruction is issued to test for 
completion of the I/0 operation. The maximum number that 
can be specified may be less than 99, depending on the 
amount of virtual storage available in the region. If the 
NCP operand is omitted, 1 is assumed. If dynamic buffering 
is used, the value specified for the NCP operand must not 
eee number of buffers specified in the BUFNO 
operand. 


Source: The NCP operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block open exit routine. 


OPTCD={CLICRIIWI]} 
The OPTCD operand specifies the optional services performed 
by the control program. All optional services must be 
requested by one method; that 1s, by the data set label of 
an existing data set, this macro, or the DD statement on 
the DCB parameter. However, it can be modified by the 
problem program. The characters may be coded in any order 
and, when used in combination, no commas are permitted 
between characters. 


a L 
( specifies that the control program delete records that 
. have a first byte of all l's. (These records can be 
deleted when space is required for new records. To 
use the delete option, the relative Key position CRKP) 
must be greater than 0 for fixed-length records and 
greater than 4 for variable-length records. ) 


specifies that the control program place 
reorganization criteria information in certain fields 
of the data control block. (The problem program can 
analyze these statistics to determine when to 
reorganize the data set. This option is provided 
whenever the OPTCD operand is omitted from all 
sources. ) 


specifies a validity check for write operations on 
direct access devices. 


SMSI=absexp (maximum value is 65535) 
The SMSI operand specifies the length, in bytes, required 
to contain the highest-level master index for the data set 
being processed. The size required can be determined from 
the DCBNCRHI field of the data control block. When an ISAM 
data set is created Cwith QISAM), the size of the 
highest-level index is inserted into the DCBNCRHI field. 
If the value specified in the SMSI operand is less than the 
value in the DCBNCRHI field, the task is abnormally 
terminated. 


Note: QISAM uses the DCBMSWA, DCBSMSI, and DCBSMSW fields 


as a work area; these fields contain meaningful information 
( only when the data set is opened for BISAM. 
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Source: The SMSI operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 


SMSW=absexp (maximum value is 65535) 


The SMSW operand specifies the length, in bytes, of a work 
area that is used by BISAM. This operand is optional, but 
the system acquires a minimum-size work area if the operand 
is omitted. The SMSW operand is coded only when the MSWA 
operand is also coded. If the SMSW operand is coded but 
the size specified is less than the minimum required, the 
task is abnormally terminated. Data Administration Guide 
describes the methods of calculating the size of the work 
area. 


If unblocked records are used, the work area must be large 
enough to contain all the count fields (8 bytes each), Key 
fields, and data fields contained on one direct access 
device track. 


If blocked records are used, the work area must be large 
enough to contain all the count fields (8 bytes each) and 
data fields contained on one direct access device track 
plus additional space for one logical record CLRECL value). 


Note: QISAM uses the DCBMSWA, DCBSMSI, and DCBSMSW fields 
in the data control block as a work area; these fields 
contain meaningful information only when the data set is 
opened for BISAM. 


Source: The SNSW operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 


SYNAD=relexp 


The SYNAD operand specifies the address of the error 
analysis routine given control when an uncorrectable 
input/output error occurs. The contents of the registers 
when the error analysis routine 1s given control are 
described in Appendix A, "Status Information Following an 
Input/Output Operation" on page 192. 


The error analysis routine must not use the save area 
pointed to by register 13 because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can issue a RETURN macro instruction that 
uses the address in register 14 to return control to the 
system. When control is returned in this manner, the 
system returns control to the problem program and proceeds 
as though no error had been encountered. If the error 
analysis routine continues processing, the results are 
unpredictable. 


If the SYNAD operand is omitted, the task is abnormally 
terminated when an uncorrectable input/output error occurs. 


Source: The SYNAD operand can be supplied in the DCB macro 
instruction or by the problem program. The problem program 
can also change the error analysis routine address at any 
time. 
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CB-—CONS C CONTROL BLOC BPA 


The data control block for the basic partitioned access method 
CBPAM) is constructed during assembly of the problem program. 
The DSORG and MACRF operands must be specified in the DCB macro 
instruction, but the other DCB operands can be supplied from 
other sources. Each of the BPAM DCB operand descriptions 
contains a heading, "Source." The information under this 
heading describes the sources that can supply the operand to the 
data control block. 


The DCB macro for BPAM is written: 


[BFALN={F[D}] 
[,BLKSIZE=absexp] 
[,BUFCB=relexp] 
[,BUFL=absexp] 
[,BUFNO=absexp] 
[,DDNAME=symbol 1]? 
» DSORG={PO| POU} 
[,EQODAD=relexp] 
{,EXLST=relexp] 
[,KEYLEN=absexp] 
[,LRECL=absexp] 
»MACRF={(RIWIR,W)}2 
[,NCP=absexp] 
[,OPTCD={{CIWIC]} 
{C|HIC]} 





1 This parameter must be supplied before an OPEN macro is 
issued for this DCB; it cannot be supplied in the open exit 
routine. 


When you create or process a BPAM data set, you can specify the 
following DCB operands: 


BFALN={F |D} 
The BFALN operand specifies the boundary alignment for each 
buffer in the buffer pool when the buffer pool is 
constructed automatically or by a GETPOOL macro 
instruction. If the BFALN operand is omitted, the system 
provides doubleword alignment for each buffer. The 
characters that can be specified in the BFALN operand are: 


F 
specifies that each buffer is aligned on a fullword 
boundary that is not also a doubleword boundary. 


specifies that each buffer is aligned on a doubleword 
boundary. 


If the BUILD macro instruction is used to construct the 
buffer pool or if the problem program controls all 
buffering, the problem program must provide an area for the 
buffers and control buffer alignment. 


Source: The BFALN operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 


BLKSIZE=absexp (maximum value KEYLEN + BLKSIZE is 32760) 
The BLKSIZE operand specifies the length, in bytes, of each 
data block for fixed-length records, or it specifies the 
maximum length, in bytes, for variable-length or 
undefined-length records. If keys are used, the length of 
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the key is not included in the value specified for the 
BLKSIZE operand. 


The actual block size that can be specified depends on the 
record format and the type of direct access device being 
used. If track overflow is used, the block size can be up 
to the maximum. If track overflow is not used, the maximum 
block size is determined by the track capacity of a single 
track on the direct access device being used. Device 
capacity for direct access devices is described in 


Appendix C, "Device Capacities™ on page 194. For 
additional information about device capacity and space 
allocation, see Data Administration Guide. 


For variable-length records, the value specified in the 
BLKSIZE operand must include the maximum logical record 
length Cup to 32756 bytes) plus 4 bytes for the block 
descriptor word CBDW). 


For undefined-length records, the value specified for the 
BLKSIZE operand can be altered by the problem program when 
the actual length becomes Known to the problem program. 
The value can be inserted into the DCBBLKSI field of the 
data control block or specified in the length operand of a 
READ/WRITE macro instruction. 


Source: The BLKSIZE operand can be supplied in the DCB 
macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before completion of the 
data control block exit routine, or by the data set label 
of an existing data set. 


BUFCB=relexp 
The BUFCB operand specifies the address of the buffer pool 
control block when the buffer pool is constructed by a 
BUILD macro instruction. 


If the buffer pool is constructed automatically or by a 
GETPOOL macro instruction, the system places the address of 
the buffer pool control block into the data control block 
and the BUFCB operand can be omitted. ‘Also, if the problem 
aa ate controls all buffering, the BUFCB operand should be 
omitted. 


Source: The BUFCB operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 


BUFLTapsexe (maximum value is 32760) | 

e BUFL operand specifies the length, in bytes, of each 
Paeees in the buffer pool when the buffer pool is acquired 
automatically. If the BUFL operand is omitted and the 
buffer pool is acquired automatically, the system acquires 
buffers with a length that is equal to the sum of the 
values specified in the KEYLEN and BLKSIZE operands. If 
the problem program requires longer buffers, the BUFL 
operand should be specified. 


If the problem program controls all buffering, the BUFL 
operand is not required. 


Source: The BUFL operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 


BUFNO=absexp (maximum value is 255) 
The BUFNO operand specifies the number of buffers to be 
constructed by a BUILD macro instruction, or it specifies 
eae of buffers to be acquired automatically by the 
system. 
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If the problem program controls all buffering or if the 
buffer pool is constructed by a GETPOOL macro instruction, 
the BUFNO operand should be omitted. 


Source: The BUFNO operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 


DDNAME=symbol 
The DDNAME operand specifies the name used to identify the 
job control language data definition (DD) statement that 
defines the data set being created or processed. 


Source: The DDNAME operand can be supplied in the DCB 
macro instruction or by the problem program before an OPEN 
macro instruction is issued to open the data set. 


DSORG={PO| POU} 
The DSORG operand specifies the data set organization and 
whether the data set contains any location-dependent 
information that would make it unmovable. The characters 
that can be specified are: 


PO 





specifies a partitioned data set organization. 


POU 
specifies a’ partitioned data set organization and that 
the data set contains location-dependent information. 


Note: If BSAM or QSAM is used to add or retrieve a single 
member of a partitioned data set, a sequential access 
method is being used, and the DSORG operand is specified as 
PS or PSU. The name of the member being processed in this 
manner is supplied ina DD statement. 


aoe Source: The DSORG operand must be specified in the DCB 
( macro instruction. 
EODAD=relexp 


The EOQDAD operand specifies the address of the routine 
Given control when the end of the input data set is 
reached. Control is given to this routine when an input 
request is made (READ macro instruction) and there are no 
additional input records to retrieve. The routine is 
entered when a CHECK macro instruction is issued and the 
end of the data set is reached. If the end of the data set 
is reached and no EODAD address has been supplied, the task 
1s abnormally terminated. For additional information on 
the EQDAD routine, see Lnis ] ide. 


Source: The EQDAD operand can be supplied in the DCB macro 
instruction or by the problem program before the end of the 
data set is reached. 


EXLST=relexp 
The EXLST operand specifies the address of the problem 
program exit list. The. EXLST operand is required if the 
problem program uses the data control block exit routine 
for additional processing or if the DCB abend exit is used 
for abend condition analysis. 


For the format and requirements of the exit list 
processing, see Appendix D, "DCB Exit List Format and 
Contents" on page 197. For additional information about 
exit list processing, see mini 190 j ; 


Source: The EXLST operand can be supplied in the DCB macro 


instruction or by the problem program before the OPEN macro 
instruction is issued to open the data set. 
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KEYLEN=absexp (maximum value is 255) 
The KEYLEN operand specifies the length, in bytes, of the 
key associated with each data block in the direct access = 
device data set. If the key length is not supplied from je 
any source by the end of the data control block exit 
routine, a key length of zero (no keys) is assumed. 





Source: The KEYLEN operand can be supplied in the DCB 
macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before the completion of 
the data control block exit routine, or by the data set 
label of an existing data set. If KEYLEN=0 is specified 
in the DCB macro instruction, a special indicator is set in 
RECFM so that KEYLEN cannot be supplied from the DCB 
subparameter of a DD statement or data set label of an 
existing data set. KEYLEN=0 can be coded only in the DCB 
macro instruction and will be ignored if specified in the 
DD statement. 


LRECL=absexp (maximum value is 32760) | 
The LRECL operand specifies the length, in bytes, of each 
fixed-length logical record in the data set; It 18S required 
only for fixed-length records. The value specified in the 
LRECL operand cannot exceed the value specified in the 
BLKSIZE operand. 


If the records are unblocked, the value specified in the 
LRECL operand must equal the value specified in the BLKSIZE 
operand. If the records are blocked, the value specified 
in the LRECL operand must be evenly divisible into the 
value specified in the BLKSIZE operand. 


Source: The LRECL operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, by 
the problem program before completion of the data control 

block exit routine, or by the data set label of an existing 


data set. 
MACRF={(RIWIR,W)} - 7 
The MACRF operand specifies the type of macro instructions "ew 


CREAD, WRITE, and NOTE/POINT) that are used to process the 
data set. The characters that can be specified are: 


R 
specifies that READ macro instructions are to be used. 
This operand automatically provides the capability to 
use both the NOTE and POINT macro instructions with 
the data set. 

W 


specifies that WRITE macro instructions are to be 
used. This operand automatically provides the 
capability to use both the NOTE and POINT macro 
instructions with the data set. 


All BPAM READ and WRITE macro instructions issued must be 
tested for completion using a CHECK macro instruction. The 
MACRF operand does not require any coding to specify that a 
CHECK macro instruction will be used. 


Source: The MACRF operand must be specified in the DCB 
macro instruction. 


NCP=absexp (maximum value is 99)° 
The NCP operand specifies the maximum number of READ and 
WRITE macro instructions that will be issued before the 
first CHECK macro instruction is issued. The maximum 
number may be less than 99, depending on the amount of 
virtual storage available in the region. If chained 
scheduling is specified, the value of NCP determines the 
maximum number of channel program segments that can be 
chained and must be specified as more than 1. If the NCP £ 
operand is omitted, 1 is assumed. 


= 
H 
4 
er 
SL 
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Source: The NCP operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 

( control block open exit routine. 


OPTCD={{CIWI[C]} 
{ClHIC]} 
{CIWIHII[C]}} 
The OPTCD operand specifies the optional services performed 
by the system. The characters that can be specified (in 
any order, in any combination, and without commas between 
characters) are: 


Cc 
specifies that chained scheduling is used. This 
option 1S ignored for direct access devices. 


If OPTCD=H is coded in the DCB parameters of a DD 
statement, H specifies that, if a partitioned data set 
1s being opened for input and resides on an MSS 
device, then, at OPEN time, the data set is to be 
staged to EOF on the virtual DASD device. 


specifies that the system is to perform a validity 
check for each record written. 


Source: The OPTCD operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before an OPEN macro instruction is 
issued to open the data set. However, all optional 
services must be requested from the same source. 


RECFM={{ULTILAIM1]} 
{VEBETIII£CTILCAIMI} 
CFCBLTII[ &ECTICAIMI}} 
oo The RECFM operand specifies the record format and 
( characteristics of the data set being created or processed. 
All the record formats shown above can be specified, but in 
those formats that show blocked records, the problem 
program must perform the blocking and deblocking of logical 
records; BPAM recognizes only data blocks. The characters 
that can be specified are: 


A 
specifies that the records in the data set contain 
ISO/ANSI/ZFIPS control characters. For a description 
of control characters, see Appendix E, "Control 
Characters™ on page 199. 

B 
specifies that the data set contains blocked records. 

FE 
specifies that the data set contains fixed-length 
records. . 

M 
specifies that the records in the data set contain 
machine code control characters. For a description of 
control characters, see Appendix E, "Control 
Characters" on page 199. 

7 


specifies that track overflow is used with the data 
set. Track overflow allows a record to be written 
partially on one track of a direct access device and 
the remainder of the record written on the following 
track Cif required). Chained scheduling COPTCD=C) 
cannot be used if the track overflow is used. 
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specifies that the data set contains undefined-length 
records. 





specifies that the data set contains variable-length 
records. 


Source: The RECFM operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, by 
the problem program before completion of the data control 
block exit routine, or by the data set label of an existing 
data set. 


SYNAD=relexp 
T 





he SYNAD operand specifies the address of the error 
analysis (SYNAD) routine to be given control when an 

uncorrectable input/output error occurs. The contents of 

the registers when the error analysis routine is given | 
control are described in Appendix A, "Status Information i 
Following an Input/Output Operation" on page 192. 7 


The error analysis routine must not use the save area 
pointed to by register 153, because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can return control to the system by 
issuing a RETURN macro instruction. If control is returned 
to the system, the system returns control to the problem 
program and proceeds as though no error had been 
encountered. 


If the SYNAD operand is omitted, the task is abnormally - 
terminated when an uncorrectable input/output error occurs. 


Seurce: The SYNAD operand can be supplied in the DCB macro 
instruction or by the problem program. The problem program 
can also change the error routine address at any time. 
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DATA CONTROL BLOC BSA 


The data control block for the basic sequential access method 
CBSAM) is constructed during assembly of the problem program. 
The DSORG and MACRF operands must be coded in the DCB macro 
instruction, but the other DCB operands can be supplied to the 
data control block from other sources. Each DCB operand 
description contains a heading, "Source." The information under 
A creer describes the sources of an operand that can be 
supplied. 


The DCB macro for BSAM is written: 


[BFALN={F|D}]1 
[»BFTEK=R] 
[,BLKSIZE=absexp] 
[»BUFCB=relexp] 
[,BUFL=absexp] 
[,BUFNO=absexp] 
{[,»BUFOFF= {absexp|L}] 
[»DDNAME=symbol]? 
[,DEVD={{DA 
[» KEYLEN=absexp]} 
{TA 


C,DEN={1/213/4}31 
C,TRTICH={CIEIETIT} 1} 


{PR 
ia 


PC 
C,MODE=[CIE 
STACK= {11 
FUNC= ‘. IP CXTIIR 
WE RWPEXT 
MODE=[ [RI] 
XT] 
RWPIX 


Cy» 
cy 
{RD 
C > C 
[,STACK={ 
I 
R 


IE 
1] 
[,FUNC={I|P 
WE 
» DSORG={PS|PSuU}? 
[,EODAD=relexp] 
[»>EXLST=relexp] 
[,KEYLEN=absexp] 
[, LRECL={absexp 
See eT BIL 
a 
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| 
WET 
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] 
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] 
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C(WIC]P] 

C(RIC|P] 
[,NCP=absexp] 
[,OPTCD={{B} 


|X} 
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[,RECFM 
CAIM]} 
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[,SYNAD r lexp 


i This parameter must be supplied before an OPEN macro is | 
ree for this DCB; it cannot be supplied in the open exit 
routine. 
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The following describes the operands that can be specified in 
the DCB macro instruction for a BSAM data set: 


BFALN={F | D} 
The BFALN operand specifies the boundary alignment for each / 
buffer in the buffer pool when the buffer pool is 
constructed automatically or by a GETPOOL macro 
instruction. If the BFALN operand is omitted, the system 
provides doubleword alignment for each buffer. 


If the data set being created or processed contains 
ISCII/ASCII tape records with a block prefix, the block 
prefix is entered at the beginning of the buffer, and data 
alignment depends on the length of the block prefix. For a 
description of how to specify the block prefix length, see 
the description of the DCB BUFOFF operand. 


The characters that can be specified are: 


F 
specifies that each buffer is on a fullword boundary 
that is not also a doubleword boundary. 


ey 


specifies that each buffer is on a doubleword 
boundary. 


If the BUILD macro instruction is used to construct the 
buffer pool or if the problem program controls all 
buffering, the problem program must provide an area for the 
buffers and control buffer alignment. 


Source: The BFALN operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. If both the BFALN and BFTEK 
operands are specified, they must be supplied by the same 
source. 


BFTEK=R ~ 
The BFTEK=R operand specifies that BSAM is used to read ee 
unblocked variable-length spanned records with keys from a 
BDAM data set. Each read operation reads one segment of 
the record and places it in the area designated in the READ 
macro instruction. The first segment enters at the 
beginning of the area, but all subsequent segments are 
offset by the length of the key Conly the first segment has 
a key). The problem program must provide an area in which 
it can assemble a record, identify each segment, and 
assemble the segments into a complete record. 


Source: The BFTEK operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. If both the BFTEK and BFALN 
operands are specified, they must be supplied from the same 
source. 


BLKSIZE=absexp (maximum value KEYLEN + BLKSIZE is 32760) 
The BLKSIZE operand specifies the maximum block length in 
bytes. For fixed-length, unblocked records, this operand 
specifies the record length. The BLKSIZE operand includes 
only the data block length; if keys are used, the length of 
the key 1s not included in the value specified for the 
BLKSIZE operand. 


The actual value that can be specified in the BLKSIZE 

operand depends on the device type and the record format 

being used. Device capacity is shown in 

Appendix C, "Device Capacities" on page 1994. For 

pee aie eae about device capacity, see Data 
minis fe) u 
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For direct access devices when track overflow is used or 
variable-length spanned records are being processed, the 
value specified in the BLKSIZE operand can be up to the 
maximum value. For other record formats used with direct 
access devices, the value specified for BLKSIZE cannot 
i exceed the capacity of a single track. 
If fixed-length records are used, the value specified in 
the BLKSIZE operand should be an integral multiple of the 
value specified for the logical record length CLRECL). 


If variable-length records are used, the value specified in 
the BLKSIZE operand must include the maximum logical record 
length Cup to 32756 bytes) plus the 4 bytes required for 
the block descriptor word (CBDW). For format-D 
variable-length records CISCII/ASCII data sets), the 
minimum value for BLKSIZE is 18 bytes. The maximum value 
is 2048 bytes. For gag tins ela aoc the 
BLKSIZE restrictions, see ist uid 


If ISCII/ASCII tape records with a block prefix are 
processed, the value specified in the BLKSIZE operand must 
also include the length of the block prefix. 


If BSAM is used to read variable-length spanned records 
from a BDAM data set, the value specified for the BLKSIZE 
operand must be as large as the longest possible record 
segment in the BDAM data set, including 4% bytes for the 
segment descriptor word (SDW) and 4 bytes for the block 
descriptor word (BDW). 


If undefined-length records are used, the value specified 
for the BLKSIZE operand can be altered by the problem 
program when the actual length becomes Known to the problem 
program. The value can be inserted directly into the 
DCBBLKSI field of the data control block or specified in 
the length operand of a READ/WRITE macro instruction. 


( . Source: The BLKSIZE operand can be supplied in the DCB 

- macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before completion of the 
data control block exit routine, or by the data set label 
of an existing data set. 


Note: The maximum block size for Version 3 ISO/ANSI/FIPS 
tapes CISO 1001-1979 and ANSI X3.27-1978) is 2048 bytes. 
An attempt to exceed 2048 bytes for a Version 3 tape 
jie in a label validation installation exit being 
aken. 


BUFCB=relexp 
The BUFCB operand specifies the address of the buffer pool 
control block ina buffer pool constructed by a BUILD macro 
instruction. 


If the buffer pool is to be constructed automatically or by 
a GETPOOL macro instruction, the system places the address 
of the buffer pool control block into the data control 
block, and the BUFCB operand should be omitted. If the 
problem program is to control all buffering, the BUFCB 
operand is not required. 


Source: The BUFCB operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 


BUFL=absexp (maximum value is 32760) 

The BUFL operand specifies the length, in bytes, for each 
buffer in the buffer pool when the buffer pool 1S acquired 
automatically. The system acquires buffers with a length 
equal to the sum of the values specified in the KEYLEN and 
BLKSIZE operands if the BUFL operand is omitted; if the 
problem program requires larger buffers, the BUFL operand 
must be specified. If the BUFL operand is specified, it 
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must be at least as large as the value specified in the 
BLKSIZE operand. If the data set is for card image mode, 
the BUFL operand should be specified as 160. The 


description of the DEVD operand contains a description of yaa. 


card image mode. ( 


If the data set contains ISCII/ASCII tape records with a 
block prefix, the value specified in the BUFL operand must 
include the block length plus the length of the block 
prefix. 


If the problem program is to control all buffering or if 
the buffer pool is to be constructed by a GETPOOL or BUILD 
macro instruction, the BUFL operand is not required. 


Source: The BUFL operand can be supplied in the DCB macro 
instruction, in the DCB keyword on a DD statement, or by 
the problem program before completion of the data control 
block exit routine. 


BUFNO=absexp (maximum value is 255) 


The BUFNO operand specifies the number of buffers 
constructed by a BUILD macro instruction or the number of 
buffers to be acquired automatically by the system. 


If the problem program controls all buffering or if the 
buffer pool is constructed by a GETPOOL macro instruction, 
the BUFNO operand should be omitted. 


Source: The BUFNO operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 


BUFOrES ={absexp]|L} 


BUFOFF operand specifies the length, in bytes, of the 
block prefix used with an ISCII/ZASCII tape data set. When 
BSAM is used to read an ISCII/ASCII tape data set, the 
problem program must use the block prefix length to 


determine the location of the data in the buffer. When Mae 


BSAM is used to write an output ISCII/ASCII tape data set, 
the problem program must insert the block prefix into the 
buffer, followed by the data (BSAM considers the block 
prefix as data). The block prefix and data can consist of 
any characters that can be translated into 7-bit 
ISCII/ASCII code; any character that cannot be translated 
is replaced with a substitute character. (For a more 
detailed description of ISCII/ZASCII ele aie 
characteristics, see Ta b 3 
Structure.) For format-D records, the RDN must be binary; 
if RECFM=D and BUFOFF=L, the RDW and BDW must both be 
binary. On output, the control program translates the BDW 
and RDW to ISCII/ASCII characters and, on input, the 
control program converts ISCII/ASCII data to BDW and RDNW. 
The following can be specified in the BUFOFF operand: 


absexp a 
specifies the length, in bytes, of the block prefix. 
This value can be from 0 to 99 for an input data set. 
The value must be 0 for writing an output data set 
with fixed-length or undefined-length records CBSAM 
considers the block prefix part of the data record). 


specifies that the block prefix is 4 bytes long and 
contains the block length. BUFOFF=L is used when 
format-D records CISCII/ASCII) are processed. When 
BUFOFF=L is specified, the BSAM problem program can 
process the data records (using READ and WRITE macro 
instructions) in the same manner as if the data were 
in format-V variable-length records. For further 


information on this operand, see "Variable-Length co 


Records——Format D" in Data Administration Guide. (3 
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If the BUFOFF operand is omitted for an input data set with 
format-D records, the system inserts the record length into 
the DCBLRECL field of the data control block; the problem 
‘a program must obtain the length from this field to process 
( the record. 


If the BUFOFF operand is omitted from an output data set 
with format-D records, the problem program must insert the 
actual record length into the DCBBLKSI field of the data 
control block or specify the record length in the length 
operand of a WRITE macro instruction. 


Source: The BUFOFF operand can be supplied in the DCB 
macro instruction, in the DCB subparameter of a DD 
statement, or by the problem program before an OPEN macro 
instruction is issued to open the data set. BUFOFF=absexp 
can also be supplied by the label of an existing data set; 
abaya: cannot be supplied by the label of an existing 
ata set. 


DDNAME=symbol 
The DDNA DDNAME operand specifies the name used to identify the 
job control language data definition (DD) statement that 
defines the data set being created or processed. 


Source: The DDNAME operand can be supplied in the DCB macro 
instruction or by the problem program before an OPEN macro 
instruction is issued to open the data set. 


DEVD={DAI|TAIPRIPC|RD}L,options] 

The DEVD operand specifies the device type where the data 
set can or does reside. The device types above are shown 
with the optional operand(s) that can be coded when a 
particular device is used. The devices are listed in order 
of device independence. For example, if DEVD=DA is coded 
in a DCB macro instruction Cor the DEVD operand is omitted, 
which causes a default to DA), the data control block 

f°. constructed during assembly could later be used for any of 

( the other devices, but, if DEVD=RD is coded, the data 
control block can be used only with a card reader or card 
reader punch. Unless you are certain that device 
interchangeability is not required, you should either code 
DEVD=DA or omit the operand and allow it to default to DA. 


If system input is directed to an intermediate storage 
device, the DEVD operand is omitted, and the job control 
language for the problem program designates the system 
input device to be used. Likewise, if system output is 
directed to an intermediate storage device, the DEVD 
operand is omitted, and the job control language for the 
problem program designates the system output device to be 
used. If DEVD=PR, PC, or RD is coded, the DCB macro should 
not be coded within the first 16 bytes of addressability 
for the control section. 


The DEVD operand is discussed below according to individual 
device type: 


DEVD=DA 
[, KEYLEN=absexp] 
specifies that the data control block can be used for 
a direct access device (or any of the other device 
types described following DA). 


KEYLEN=absexp 
The KEYLEN operand can be specified only for data 
sets that reside on direct access devices. 
Because the KEYLEN is usually coded without a 
- DEVD operand (default taken), the description of 
the KEYLEN operand is in alphabetic sequence with 
the other operands. 
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DEVD=TA 
[,DEN=£1121314}] 
[,TRTCH={C|[EJET|T}] 
Specifies that the data control block can be used for 
a magnetic tape data set Cor any of the other device 
types described following TA). If TA is coded, the 
following optional operands can be coded: 


DEN={1]2]314} 
The DEN operand specifies the recording density 
in the number of bits-per-inch per track as shown 
in the following: 


Recording Density 


DEN 7-Track 9-Track 18-Track 
l 556 N/A N/A 
2 800 800 CNRZI)2 NZA 
3 N/A 1600 €PE)2 NZA 
G N/A 6250 (GCR)? N/A 


aad 


NRZI is for nonreturn-to-zero inverted mode. 
2 PE is for phase encoded mode. 
3 GCR is for group coded recording mode. 


If the DEN operand is not supplied by any source, 
the highest applicable density 1s assumed. 


TRICH={C|E[ET|T} 
The TRTCH operand specifies the recording 
technique for 7-track tape. One of the above 
G-character combinations can be coded. If the 
TRTCH operand is omitted, odd parity with no 
translation or conversion 1s assumed. The 
characters that can be specified are: 


Cc 
specifies that the data-conversion feature 
1s used with odd parity and no translation. 

E 
specifies even parity with no translation or 
conversion. 

ET 
specifies even parity with BCDIC to EBCDIC 
translation required and no data-conversion 
feature. | 

+ 


specifies that BCDIC to EBCDIC translation 
is required with odd parity and no 
data-conversion feature. 


DEVD=PR 

[»,PRTSP={0|112[3}] 
Specifies that the data control block is used for an 
on-line printer (Cor any of the other device types 
following PR). If PR is coded, the following optional 
operand can be coded: 


PRTSP= Saba ty 
he PRTSP operand specifies the line spacing on 
re printer. This operand is not valid if the 
RECFM operand specifies either machine CRECFM=M), 
ISO/ANSI/FIPS CRECFM=A) control characters. If 
the PRTSP operand is not specified neon any 
source, 1 1s assumed. 
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The characters that can be specified are: 





0 
specifies that spacing is suppressed (no 
space). 

1 
specifies single spacing. 

2 
specifies double spacing (Cone blank line 
between printed lines) 

3 
specifies triple spacing (two blank lines 
between printed lines). 

DEVD=PC 
[,MODE=[C/E] 


[>STACK={1]2}] 

L,; FUNC= CI[P|PWEIXTITRIRPLDITRWETI|RWPLEXTILCDIIWETIFI 
Specifies that the data control block is used for a 
card punch Cor any of the other device types following 
PC). If PC is coded, the following optional operands 
can be specified: 


MODE=[C]E] 
The MODE operand specifies the mode of operation 
for the card punch. The characters that can be 
specified (if the MODE operand is omitted, E is 
assumed) are: 


Cc 
specifies that the cards are to be punched 
in card image mode. In card image mode, the 
12 rows in each card column are punched from 
two consecutive bytes in virtual storage. 
_— Rows 12 through 3 are punched from the 
( low-order 6 bits of one byte and rows 4 
through 9 are punched from the low-order 6 
bits of the following byte. 


specifies that cards are to be punched in 
EBCDIC code. 


STACK={1| 2} 
The STACK operand specifies the stacker bin where 
the card is placed after punching is completed. 
If this operand is omitted, stacker number 1 1s 
used. The characters that can be specified are: 


i 


specifies stacker number 1. 


2 


specifies stacker number 2. 


FUNC= A US Ae pata tale 

The FUNC operand defines the type of 3525 card 
punch data sets that are used. If the FUNC 
operand is omitted from all sources, a data set 
opened for input defaults to read only, anda 
data set opened for output defaults to punch 
only. The characters that can be specified in 
the FUNC operand are: 


D 
specifies that the data protection option is 
to be used. The data protection option 
prevents punching information into card 
columns that already contain data. When the 
data protection option is used, an 80-byte 
data protection image (DPI) must have been 





Macro Instruction Descriptions 55 





DCB (BSAM) 


DEVD= 


Note: 


previously stored in SYS1.IMAGELIB. Data 
protection applies only to the output/punch 
portion of a read and punch or read punch 
and print operation. 





specifies that the data in the data set is 

to be punched into cards: ‘and printed on the 
cards; the first 64 characters are printed 

on line 1 of the card and the remaining 16 

characters are printed on line 3 


specifies that the data set is for punching 
cards. See the description of the character 
X for associated punch and print data sets. 


specifies that the data set is for reading 
cards. 


specifies that the two-line print option is 
used. The two-line print option allows two 
lines of data to be printed on the card 
Clines 1 and 3). If T is not specified, the 
multiline print option is used; this allows 
printing on all 25 possible print lines. In 
either case, the data printed may be the 
Same as the data punched in the card, or it 
may be entirely different data. 


specifies that the data set is for printing. 
See the description of the character X for 
associated punch and print data sets. 


specifies that an associated data set is : ; 
opened for output for both punching and Ne 
printing. Coding the character X 1s used to 
distinguish the 3525 printer output data set 

from the 3525 punch output data set. 


If data protection is specified, the data 


protection image (DPI) must be specified in the 
FCB parameter of the DD statement for the data 


set 


RD 


eRe eieta 


C»STACK={1[2 


[,>FUNC={£I|P|]PWEXTIIRIRPLIDIJ | RWEIT] | RWPLIXTILDIJWETI}1 
Specifies that the data control block is used with a 
card reader or card read punch. If RD is specified, 
the data control block cannot be used with any other 
device type. When RD is coded, the following optional 
operands can be specified: 


MODE=[CJEI]LO|R] 
Th 
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e MODE operand specifies the mode of operation 


for the card reader. The characters that can be 
specified are: 


Cc 


specifies that the cards to be read are in 
card image mode. In card image mode, the 12 
rows in each card column are read into two 
consecutive bytes of virtual storage. Rows 
12 through 3 are read into one byte and rows 
: comer 9 are read into the following 

yte. 
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E 
specifies that the cards to be read contain 
data in EBCDIC code. 
0 
— specifies that the program runs in 
optical-mark-read mode (3505 card reader). 
R 


specifies that the program runs in 
read-column-eliminate mode (3505 card reader 
or 3525 card punch, read feature). 


Note: If the MODE operand for a 3505 or 3525 is 
specified in the DCB subparameter of a DD 
statement, either C or E must be specified if R 
or 0 1s specified. 


STACK={1]| 2} 
The STACK operand specifies the stacker bin where 
the card is placed after reading is completed. 
If this operand is omitted, stacker number 1 is 
used. The characters that can be specified are: 


i 


specifies stacker number 1. 


2 
specifies stacker number 2. 


FUNC={I/P[PWEIXT]|RIRPED] |RWEITI|RWPLXTI[D] | WITI} 
The FUNC operand defines the type of 3525 card 
punch data sets that are used. If the FUNC 
operand is omitted from all sources, a data set 
opened for input defaults to read only, anda 
data set opened for output defaults to punch 
only. The characters that can be specified in 
( the FUNC operand are: 


D 
specifies that the data protection option is 
to be used. The data protection option 
prevents punching information into card 
columns that already contain data. When the 
data protection option is used, an 80-byte 
data protection image (DPI) must have been 
previously stored in SYS].IMAGELIB. Data 
protection applies only to the output/punch 
portion of a read and punch or read punch 
and print operation. 


specifies that the data in the data set is 

to be punched into cards and printed on the 
cards; the first 64 characters are printed 

on line 1 of the card and the remaining 16 

characters are printed on line 3. 


specifies that the data set is for punching 
cards. See the description of the character 
X for associated punch and print data sets. 


specifies that the data set is for reading 
cards. 


specifies that the two-line print option is 
used. The two-line print option allows two 
lines of data to be printed on the card 
cr (lines 1 and 3). If T is not specified, the 
( | multiline print option is used; this allows 
printing on all 25 possible print lines. In 
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either case, the data printed may be the 
same as the data punched in the card, or it 
may be entirely different data. 


W 
specifies that the data set is for printing. 
See the description of the character X for 
associated punch and print data sets. 

xX 


specifies that an associated data set is 
opened for output for both punching and 
printing. Coding the character X is used to 
distinguish the 3525 printer output data set 
from the 3525 punch output data set. 


Note: If data protection is specified, the 
data protection image (DPI) must be 
specified in the FCB subparameter of the DD 
statement for the data set. 


Source: The DEVD operand can be supplied only in 
the DCB macro instruction. However, the optional 
operands can be supplied in the DCB macro 
instruction, the DCB subparameter of a DD 
statement, or by the problem program before 
completion of the data control block exit 
routine. 


DSORG={PS| PSU} 


The DSORG operand specifies the organization of the data 
set and if the data set contains any location-dependent 

information that would make it unmovable. The following 
can be specified: 


PS 
specifies a physical sequential data set. 


PSU 
specifies a physical sequential data set that contains 
location-dependent information that would make it 
unmovable. 


Source: The DSORG operand must be coded in the DCB macro 
instruction. 


EODAD=relexp 


The EODAD operand specifies the address of the routine 
given control when the end of an input data set is reached. 
If the record format is RECFM=FS or FBS, the end-of-data 
condition is sensed when a file mark is read or when more 
data is requested after reading a truncated block. The 
end-of-data routine is entered when the CHECK macro 
instruction determines that the READ macro instruction 
reached the end of the data. If the end of the data set is 
reached but no EODAD address has been supplied, the task is 
abnormally terminated. For additional information on the 
EQDAD routine, see Data Administratio ] 


When the data set has been opened for UPDAT and volumes are 
to be switched, the problem program should issue a FEOV 
macro instruction after the EOQDAD routine has been entered. 


Source: The EOQDAD operand can be supplied in the DCB macro 
instruction or by the problem program before the end of the 
data set is reached. 


EXLST=relexp 


The EXLST operand specifies the address of the problem 
program exit list. The EXLST operand is required if the 
problem program requires additional processing for user 
labels, user totaling, data control block exit routine, 
end-of-volume, block count exits, to define a forms control 
buffer CFCB) image, use the JFCBE exit (for the IBM 3800 
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Printing Subsystem), or to use the DCB abend exit for abend 
condition analysis. 


For the format and requirements of exit list processing, 
see Appendix D, "DCB Exit List Format and Contents"™ on 
page 197. For additional information about exit list 


processing, see Data Administration Guide. 


Source: The EXLST operand can be supplied in the DCB macro 
instruction or by the problem program any time before the 
exit is required by the problem program. 


KEYLEN=absexp (maximum value is 255) 


The KEYLEN operand specifies the length, in bytes, for the 
key associated with each data block ina direct access 
device data set. If the key length is not supplied from 
any source before completion of the data control block exit 
routine, a Key length of zero (no Keys) is assumed. 


Source: The KEYLEN operand can be supplied in the DCB 
macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before the completion of 
the data control block exit routine, or by the data set 
label of an existing data set. If KEYLEN=0 is specified in 
the DCB macro instruction, a special indicator is set in 
RECFM so that KEYLEN cannot be supplied from the DCB 
subparameter of a DD statement or data set label of an 
existing data set. KEYLEN=0 can be coded only in the DCB 
macro instruction and will be ignored if specified in the 
DD statement. 


LRECL={absexp |X} 


The LRECL operand specifies the length, in bytes, for 
fixed-length records, or it specifies the maximum length, 
in bytes, for variable-length records. LRECL=X is used for 
variable-length spanned records that exceed 32756 bytes. 
Except when variable-length spanned records are used, the 
value specified for the LRECL operand cannot exceed the 
value specified for the BLKSIZE operand. 


Except when variable-length spanned records are used, the 
LRECL operand can be omitted for BSAM; the system uses the 
value specified in the BLKSIZE operand. If the LRECL value 
1s coded, it is coded as described in the following. 


For fixed-length records that are unblocked, the value 
specified in the LRECL operand should be equal to the value 
specified in the BLKSIZE operand. For blocked fixed-length 
records, the value specified in the LRECL operand should be 
evenly divisible into the value specified in the BLKSIZE 
sieeve However, the LRECL operand will not be validity 
checked. 


For variable-length records, the value specified in LRECL 
must include the maximum data length Cup to 32752 bytes) 
Plus 4 bytes for the RDNW. 


For undefined-length records, the LRECL operand should be 

omitted; the actual length can be supplied dynamically ina 

READ/WRITE macro instruction. When an undefined-length | 

record is read, the actual length of the record is returned 

ef ac system in the DCBLRECL field of the data control 
ock. 


When BSAM is used to create a BDAM data set with 
variable-length spanned records, the LRECL value should be 
the maximum data length Cup to 32752) plus four bytes for 
the record descriptor word (RDW), or, if the logical record 
length is greater than 32756 bytes, LRECL=X is specified. 


Source: The LRECL operand can be supplied in the DCB macro 


instruction, in the DCB subparameter of a DD statement, by 
the problem program before completion of the data control 
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block exit routine, or by the data set label of an existing 
data set. 


MACRF={{(RICIP] )} ‘ 
CCWEIC|PIL1)} co 
{C(RLIC|P1,WIC|P1)}3 beg 

The MACRF operand specifies the type of macro instructions 
CREAD, WRITE, CNTRL, and NOTE/POINT) that are used with the 
data set being created or processed. The BSAM MACRF 
operand also provides the special form (MACRF=WL) for 
creating a BDAM data set. The MACRF operand can be coded 
in any of the forms shown above. The following characters 
can be coded: 


C 





specifies that the CNTRL macro instruction is used 
with the data set. If C is specified to be used with 
a card reader, a CNTRL macro instruction must follow 
every input request. 


specifies that BSAM is used to create a BDAM data set. 
This character can be specified only in the 
combination MACRF=WL. 


specifies that POINT macro instructions are used with 
the data set being created or processed. Specifying P 
in the MACRF operand also automatically provides the 
capability of using NOTE macro instructions with the 
data set. P should not be coded for SYSIN or SYSOUT 
data sets. (See explanations of the NOTE and POINT 
macro instructions. ) 


specifies that READ macro instructions are to be used. 


not ella that WRITE macro instructions are to be a / 
used. al 


Note: Each READ and WRITE macro instruction issued in the 
problem program must be checked for completion by a CHECK 
macro instruction. 


Source: The MACRF operand must be specified in the DCB 
macro instruction. 


NCP=absexp (maximum value is 99) 
The NCP operand specifies the maximum number of READ/WRITE 
macro instructions that will be issued before the first 
CHECK macro instruction is issued to test for completion of 
the I/0 operation. The maximum number may be less than 99, 
depending on the amount of virtual storage available in the 
region. If the NCP operand is omitted, 1 is assumed. 


Source: The NCP operand can be eiseised in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block open exit routine. 


OPTCD={{B} 


The OPTCD operand specifies the optional services that are 
used with the BSAM data set. Two of the optional services, 
OPTCD=B and OPTCD=H, cannot be specified in the DCB macro 
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instruction. They are requested in the DCB subparameter of 
a DD statement. Because all optional services requests 
must be supplied by the same source, the OPTCD operand must 
be omitted from the DCB macro instruction if either of 
these options is requested ina DD statement. The 
characters that can be specified (in any order, in one of 
the combinations shown above, and without commas between 
characters) are: 


Cc 
requests that chained scheduling be used. OPTCD=C 
cannot be specified if BFTEK=R is specified for the 
same data control block. Also, chained scheduling 
cannot be specified for associated data sets or 
printing on a 3525 and is ignored for direct access 
devices. 


Note: Except where it is not allowed, chained 
scheduling is used whether requested or not. For 
conditions under which chained scheduling 1s not 
allowed, see Data Administration Guide 


specifies that the first data byte in the output data 
line will be a 3800 table reference character. This 
table reference character selects a particular 
character arrangement table for the printing of the 
data line and can be used singly or in conjunction 
with ISO, ANSI, or machine control characters. This 
option is valid only for the IBM 3800 Printing 
Subsystem. For information on the table reference 
character and character arrangement table modules, see 
BM 3800 j 1 u Ss ogrammer's Guide. 


requests that ISCII/ASCII tape records in an input 
data set be converted to EBCDIC code after the input 
record has been read. Translation is done at CHECK 
time for input. It also requests that an output 
record in EBCDIC code be converted to ISCII/ASCII code 
before the record is written. For further information 
on this conversion, see "Variable-Length 


Records—Format D™ in Data Administration Guide. 


The Q option 1s unconditionally set by open routines 
if the data set is for a tape with ISO/ANSI/FIPS 
labels. For more information about ISCII/ASCII to 
EBCDIC or EBCDIC to ISCII/ASCII translations, see 
Magnetic Tape Labels and File Structure 


Administration. 


requests the user totaling function. If this function 
is requested, the EXLST operand should specify the 
address of an exit list to be used. T cannot be 
specified for SYSIN and SYSOUT data sets. 


is specified only for a printer with the universal 
character set (CUCS) feature or the 3800 Printing 
Subsystem. This option unblocks data checks Cpermits 
them to be recognized as errors) and allows analysis 
by the appropriate error analysis routine (CSYNAD exit 
routine). If the U option is omitted, data checks are 
not recognized as errors. 


For the IBM Mass Storage System (MSS): U requests 
window processing to reduce the amount of staging 
space required to process large sequential data sets 
on MSS. DSORG must specify physical sequential, 
allocation must be in cylinders, and type of I/0 
accessing must be either INPUT only or OUTPUT only. 
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for DASD, specifies that the system is to perform a 
validity check on each record written ona direct 
access device. For buffered devices, specifies that 
device end interrupt is to be given only when a record 
is physically on the device. By specifying OPTCD=W 
with buffered devices, you do not benefit from the 
performance advantage of buffering. 


requests, for magnetic tape, input only, the system to 
shorten its normal error recovery procedure to 
consider a data check as a permanent I/0 error after 
five unsuccessful attempts to read a record. This 
option is available only if it has also been Specified 
as a SYSGEN option. OPTCD=Z is meant to be used when 
a tape is known to contain errors and there is no need 
to process every record. The error analysis routine 
CSYNAD) should keep a count of permanent errors and 
terminate processing if the number becomes excessive. 


Note: The following describes the optional services that 
can be requested in the DCB subparameter of a DD statement. 
If either of these options is requested, the complete OPTCD 
operand must be supplied in the DD statement. 


B 
If OPTCD=B is specified in the DCB subparameter of a 
DD statement, it forces the end-of-volume CEOV) 
routine to disregard the end-of-file recognition for 
magnetic tape. When this occurs, the EOV routine uses 


the number of volume serial numbers to determine end 
of file. 


If OPTCD=H is specified in the DCB subparameter of a 
DD statement, it specifies that the DOS/OS interchange 
feature is being used with the data set. 


Source: The OPTCD operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, in 
the data set label for direct access devices, or by the 
problem program before completion of the DCB open exit 
routine or JFCBE exit routine. However, all optional 
services must be requested from the same source. 


RECFM={{ULITICAIM]} 

{VIBISITIBS|IBTILA[M]} 

{DIBISIBSI]T[A]} 

CFLBISITIBS|IBTILAIM1}} 
The RECFM operand specifies the record format and 
characteristics of the data set being created or processed. 
All the record formats shown above can be specified, but in 
those record formats that specify blocked records, the 
problem program must perform the blocking and deblocking 
of logical records; BSAM recognizes only data blocks. The 
following describes the characters that can be specified: 


A 
specifies that the records in the data set contain 
International Organization for Standardization (ISO) 
or American National Standards Institute CANSI) 
control characters. For a description of control 
ai el see Appendix E, "Control Characters" on 
page 9. 


specifies that the data set contains blocked records. 
specifies that the data set contains variable-length 


ISCII/ASCII tape records. 
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specifies that the data set contains fixed-length 
records. 


specifies that the records in the data set contain 
machine code control characters. For a description of 
control characters, see Appendix E, "Control 
Characters" on page 199. RECFM=M cannot be used with 
ISCII/ASCII data sets. 


S specifies, for fixed-length records, that the 
records are to be written as standard blocks; with the 
exception of the last block or track in the data set, 
the data set contains no truncated blocks or unfilled 
tracks. Do not code S to retrieve records from a data 
set that was created using a RECFM other than 
standard. 


For variable-length records, including variable-length 
ISCII/ASCII, S specifies that a record can span more 
than one block. 


specifies that track overflow is used with the data 
set. Track overflow allows a record to be written 
partially on one track of a direct access device and 
the remainder of the record to be written on the 
following track or tracks as required. Chained 
scheduling cannot be requested if track overflow is 
used. 


specifies that the data set contains undefined-length 
records. 


Note: Format-U records are not supported for Version 
3 ISO/ANSI/ZFIPS tapes. An attempt to process a 
format-U record for a Version 3 tape results ina 
label validation installation exit being taken. 


Only ISO/ANSI Version 1 CISO 1001-1969 or ANSI 
X3.27-1969) format-U records can be used for input. 


specifies that the data set contains variable-length 
records. 


Notes: 


RECFM=V cannot be specified for a card reader data set 
or an ISO/ANSI/FIPS tape data set. 


RECFM=VBS does not provide the spanned record function; 
if this format is used, the problem program must block 
and segment the records. 


RECFM=DBS or RECFM=DS does not provide the spanned 
record function; if this format is used, the problem 
program must block and segment the records. 


RECFM=VS, VBS, DS, or DBS cannot be specified for a 
SYSIN data set. | 


RECFM=V cannot be used for a 7-track tape unless the 
data conversion feature (TRTICH=C) is used. 


Source: The RECFM operand can be Supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, by 
the problem program before completion of the data control 
re ae routine, or by the data set label of an existing 
ata set. 
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SYNAD=relexp 


The SYNAD operand specifies the address of the error 
analysis CSYNAD) routine to be given control if an 
uncorrectable input/output error occurs. The contents of 
the registers when the error analysis routine is given 
control are described in Appendix A, "Status Information 
Following an Input/Output Operation" on page 192 


The error analysis routine must not use the save area 
pointed to by register 13, because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can issue a RETURN macro instruction that 
uses the address in register 14 to return control to the 
system. If control is returned to the system, the system 
returns control to the problem program and proceeds as 
though no error had been encountered. 


If the SYNAD operand is omitted, the task is abnormally 
terminated when an uncorrectable input/output error occurs. 


Source: The SYNAD operand can be supplied in the DCB macro 
instruction or by the problem program. The problem program 
can also change the error routine address at any time. 


When operating a directly allocated 3800 Model 3 using 
all-points addressability, the SYNAD routine will be entered if 
Print Services Facility (PSF) detects an unrecoverable error. 
However, no error information is available to the SYNAD routine 
fora directly allocated 3800 Model 3. If you want to continue 
processing, you must close and reopen the data set to Sate 


PSF. 


For more information on _ the 3800 Model 3, see 
for Models 3 and 8. 
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CB-"CONSTRUC DA CONTR oc Ss 


The data control block for a queued indexed sequential access 
method (CQISAM) data set is constructed during assembly of the 
problem program. The DSORG and MACRF operands must be coded in 
the DCB macro instruction, but the other DCB operands can be 
supplied from other sources. Each QISAM DCB operand description 
contains a heading, "Source." The information under this 
heading describes the sources that can supply the operand to the 
data control block 


The DCB macro for QISAM is written: 





[BFALN={F]D}] 
[,BLKSIZE=absexp] 
[,BUFCB=relexp] 
C,BUFL=absexp] 
[»BUFNO=absexp] 
[,CYLOFL=absexp] 
[,DDNAME=symbol]} 
DSORG= {1s{1su} 

» EODAD=relexp] 

»EXLST=relexp] 

» KEYLEN=absexp] 
[,LRECL=absexp] 
»MACRF={{£(PM)} 

{(PL)} 
{(GHE,S{IKITI 
{(GLL,S{K]I 
[M] 
FCB 


)} 

[,PU] )}} 
NTM=absexp] 
OPTCD=[IIEL] aca aes, 


[, 
[, 
a »RECFM={VIB] | 
[ 


+] 
3] 
[ 
] 


R 
} 
»RKP=absexp] 

» SYNAD=relexp] 





( i This parameter must be supplied before an OPEN macro is 
issued for this DCB; it cannot be supplied in the open exit 
routine. 


The following describes the DCB operands that can be specified 
when a QISAM data set is being created or processed: 


BFALN={F | D} 
The BFALN operand specifies the alignment of each buffer in 
the buffer pool when the buffer pool is constructed 
automatically or by a GETPOOL macro instruction. If the 
BFALN operand is omitted, the system provides doubleword 
alignment for each buffer. The following describes the 
characters that can be specified: 


F 
specifies that each buffer is on a fullword boundary 
that is not also a doubleword boundary. 


specifies that each buffer 1s on a doubleword 
boundary. 


If the BUILD macro instruction is used to construct the 
buffer pool, the problem program must provide a storage 
area for the buffers and control buffer alignment. 


Source: The BFALN operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 


BLKSIZE=absexp (maximum value KEYLEN + BLKSIZE is 32760) 
The BLKSIZE operand specifies the length, in bytes, for 
each data block when fixed-length records are used, or it 
specifies the maximum length in bytes, for each data block 
when variable-length records are used. The BLKSIZE operand 
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must be specified when an ISAM data set is created. When 
an existing ISAM data set is processed, the BLKSIZE operand 
must be omitted (Cit is supplied by the data set label). 





Track capacity of the direct access device being used must 
be considered when the block size for an ISAM data set is 
specified. For fixed-length records, the sum of the key 
length, data length, and device overhead plus 10 bytes (for 
ISAM use) must not exceed the capacity of a single track on 
the direct access device being used. For variable-length 
records, the sum of the key length, block-descriptor word 
length, record-descriptor word length, data length, and 
device overhead plus 10 bytes (for ISAM use) must not 
exceed the capacity of a single track on the direct access 
device being used. Device capacity and device overhead are 
described in Appendix C, "Device Capacities" on page 194. 
For additional information about device capacity and space 
allocation, see Data Administrati l 


If fixed-length records are used, the value specified in 
the BLKSIZE operand must be an integral multiple of the 
value specified in the LRECL operand. 


Source: When an ISAM data set is created, the BLKSIZE 
operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement, or by the problem 
program before completion of the data control block exit 
routine. When an existing ISAM data set 1S processed, the 
BLKSIZE operand must be omitted from the other sources, 
allowing the data set label to supply the value. 


BUFCB=relexp 
The BUFCB operand specifies the address of the buffer pool 
control block constructed by a BUILD macro instruction. 


If the system constructs the buffer pool automatically or 
if the buffer pool is constructed by a GETPOOL macro 
instruction, the system places the address of the buffer e | 
pool control block into the data control block, and the Re. 
BUFCB operand should be omitted. ~ 


Source: The BUFCE operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 


BUFL=absexp (maximum value is 32760) 

he BUFL operand specifies the length, in bytes, of each 
buffer in the buffer pool when the buffer pool is 
constructed by a BUILD or GETPOOL macro instruction. When 
the data set is opened, the system computes the minimum 
buffer length required and verifies that the length in the 
buffer pool control block is equal to or greater than the 
minimum length required. The system then inserts the 
computed length into the data control block. 


The BUFL operand is not required for QISAM if the system 
acquires buffers automatically; the system computes the 
minimum buffer length required and inserts the value into 
the data control block 


If the buffer pool is constructed with a BUILD or GETPOOL 
macro instruction, additional space is required in each 
buffer for system use. For a description of the oe 
length required for various ISAM operations, see Data 


Administration Guide. 


Source: The BUFL operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 


BUFNO=absexp (maximum value is 255) 
The BUFNO operand specifies the number of buffers to be 
constructed by a BUILD macro instruction, or it specifies 
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the number of buffers to be acquired automatically by the 
system. If the BUFNO operand is omitted, the system 
automatically acquires two buffers. 


If the GETPOOL macro instruction is used to construct the 
buffer pool, the BUFNO operand is not required. 


Source: The BUFNO operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 


CYLOFL=absexp (maximum value is number of tracks minus 1) 


The CYLOFL operand specifies the number of tracks on each 
cylinder that is reserved as an overflow area. The 
overflow area 1s used to contain records that are forced 
off prime area tracks when additional records are added to 
the prime area track in ascending key sequence. ISAM 
maintains pointers to records in the overflow area so that 
the entire data set is logically in ascending key sequence. 
Tracks in the cylinder overflow area are used by the system 
only if OPTCD=Y is specified. For a more complete 
description of cylinder overflow area, refer to the space 
allocation section of Data Administratio i ; 


Source: When an ISAM data set is created, the CYLOFL 
operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement, or by the problem 
program before completion of the data control block exit 
routine. When an existing ISAM data set is processed, the 
CYLOFL operand should be omitted, allowing the data set 
label to supply the operand. 


DDNAME=symbol 


The DDNAME operand specifies the name used to identify the 
job control language data definition (DD) statement that 
defines the data set being created or processed. 


Source: The DDNAME operand can be supplied in the DCB 
macro instruction or by the problem program before an OPEN 
macro instruction is issued to open the data set. 


DSORG={IS| ISU} 


The DSORG operand specifies the organization of the data 
set and indicates if the data set contains any 
location-dependent information that would make it 
unmovable. The following characters can be specified: 


Is 
specifies an indexed sequential data set organization. 


ISU 
specifies an indexed sequential data set that contains 
location-dependent information. ISU can be specified 
only when an ISAM data set is created. 


Source: The DSORG operand must be specified in the DCB 
macro instruction. When an ISAM data set is created, 
DSORG=IS or JSU must also be specified in the DCB 
subparameter of the corresponding DD statement. 


EODAD=relexp 
T 





r 

he EOQDAD operand specifies the address of the routine to 
be given control when the end of an input data set is 
reached. For ISAM, this operand would apply only to scan 
mode when a data set 1s open for an input operation. 
Control is given to this routine when a GET macro 
instruction is issued and there are no more input records 
to retrieve. For additional information on the EODAD 
routine, see Data Administration Guide. 


Source: The EQDAD operand can be supplied in the DCB macro 


instruction or by the problem program before the end of the 
data set is reached. 
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EXLST=relexp | 
The EXLST operand specifies the address of the problem 
program exit list. The EXLST operand is required only if 
the problem program uses the data control block exit 
routine for additional processing. 








For the format and requirements for exit list processing, 
see Appendix D, "DCB Exit List Format and Contents" on 
page 197. For additional information about exit list 
processing, see Data Admini 10 J : 


Source: The EXLST operand can be supplied in the DCB macro 
instruction or by the problem program before the associated 
exit 1s required. 


KEYLEN=absexp (maximum value is 255) 
The KEYLEN operand specifies the length, in bytes, of the 
key associated with each record in an indexed sequential 
data set. When blocked records are used, the Key of the 
last record in the block Chighest key) is used to identify 
the block. However, each logical record within the block 
has its own identifying key that ISAM uses to access a 
gQiven logical record. 


Source: When an ISAM data set is created, the KEYLEN 
operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement, or by the problem 
program before completion of the data control block exit 
routine. When an existing ISAM data set is processed, the 
KEYLEN operand must be omitted, allowing the data set level 
to supply the key length value. KEYLEN=0 is not valid for 
an ISAM data set. 


LRECL=absexp (maximum value is device-dependent) 
The LRECL operand specifies the length, in bytes, for 
fixed-length records, or it specifies the maximum length, 
in bytes, for variable-length records. The value specified 


in the LRECL operand cannot exceed the value specified in a 
the BLKSIZE operand. When fixed, unblocked records are he 
used and the relative key position (Cas specified in the RKP S27 


operand) is zero, the value specified in the LRECL operand 
should include only the data length (the key is not written 
as part of the fixed, unblocked record when RKP=0). 


The track capacity of the direct access device being used 
must be considered if maximum-length logical records are 
being used. For fixed-length records, the sum of the key 
length, data length, and device overhead plus 10 bytes (for 
ISAM use) must not exceed the capacity of a single track on 
the direct access device being used. For variable-length 
records, the sum of the key length, data length, device 
overhead, block-descriptor-word length, and 
record-descriptor-word length plus 10 bytes (for ISAM use) 
must not exceed the capacity of a single track on the 
direct access device being used. Device capacities are 
shown in Appendix C, "Device Capacities" on page 194. For 
additional information about device capacity and space 
allocation, see Da ini j Guide. 


Source: When an ISAM data set is created, the LRECL operand 
can be supplied in the DCB macro instruction, in the DCB 
subparameter of a DD statement, or by the problem program 
before completion of the data control block exit routine. 
When an existing ISAM data set is processed, the LRECL 
operand must be omitted, allowing the data set label to 
supply the value. 


MACRF={{(PM)} 
{(PL)} 


{(GML,S{K]1I31)} 
{(GLL,S{K|I}1L,PU])}} 


The MACRF operand specifies the type of macro instructions, fo 
the transmittal mode, and type of search to be used with “ F 
the data set being processed. The operand can be coded in ed 
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any of the combinations shown above; the following 
describes the characters that can be coded. 


ao The following characters can be specified only when the 
: data set is being created (load mode) or additional records 
are being added to the end of the data set Cresume load): 
PL 
specifies that PUT macro instructions are used in the 
locate transmittal mode; the system provides the 
problem program with the address of a buffer 
containing the data to be written into the data set. 
PM 


specifies that PUT macro instructions are used in the 
move transmittal mode; the system moves the data to be 
written from the problem program work area to the 
buffer being used. 


The following characters can be specified only when the 
data set is being processed (Scan mode) or when records in 
an ISAM data set are being updated in place: 


GL 
specifies that GET macro instructions are used in the 
locate transmittal mode; the system provides the 
problem program with the address of a buffer 
containing the logical record read. 


GM 
specifies that GET macro instructions are used in the 
move mode; the system moves the logical record from 
the buffer to the problem program work area. 


specifies that actual device addresses (MBBCCHHR) are 
= Este se search for a record Cor the first record) to 
( e read. 


specifies that a key or key class is used to search 
for a record Cor the first record) to be read. 


PU 
specifies that PUTX macro instructions are to be used 
to return updated records to the data set. 


specifies that SETL macro instructions are used to set 
the beginning location for processing the data set. 


Source: The MACRF operand must be coded in the DCB 
macro instruction. 


NTM=absexp (maximum value is 99) 
The NTM operand specifies the number of tracks to be 
created in a cylinder index before a higher-level index is 
created. If the cylinder index exceeds this number, a 
master index is created by the system; if a master index 
exceeds this number, the next level of master index is 
created. The system creates as many as three levels of 
master indexes. The NTM operand is ignored unless the 
master index option COPTCD=M) is selected. 


Source: When an ISAM data set is being created, the NTM 
operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement, or by the problem 
Program before completion of the data control block exit 
routine. When an ISAM data set is being processed, master 
index information is supplied to the data control block 
ee data set label, and the NTM operand must be 
omitted. 
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OPTCD=C[IICLICMICRICUICWICYI 
The OPTCD operand specifies the optional services performed 
by the system when an ISAM data set is being created or 
updated. The following describes the characters that can 
be specified (these characters can be specified in any 
order, and no commas are allowed between characters): 


I 





specifies that the system uses the independent . | 
overflow areas to contain overflow records. Note that 
1t 1s only the use of the allocated independent 
overflow area that 1s optional. Under certain 
conditions, the system designates an overflow area 
that was not allocated for independent overflow by the 
problem program. See "Allocating Space for an Indexed 


Sequential Data Set™ in Data Administration Guide. 


specifies that the data set will contain records 
flagged for deletion. A record is flagged for 
deletion by placing a hexadecimal value of 'FF' in the 
first data byte. Records flagged for deletion remain 
in the data set until the space is required for 
another record to be added to the track and are 
ignored during sequential retrieval of the ISAM data 
set CQISAM, scan mode). This option cannot be 
specified for blocked fixed-length records if the 
relative key position is 0 (CRKP=0), or it cannot be 
specified for variable-length records if the relative 
key position is 4 (CRKP=4). 


When an ISAM data set is being processed with BISAM, a 
record with a duplicate key can be added to the data 

set CNRITE KN macro instruction), only when OPTCD=L 
has been specified and the original record (the one 

peeing 1s being duplicated) has been flagged for 
eletion. 


specifies that the system create and maintain a master 
indexCes) according to the number of tracks specified 
in the NTM operand. 


specifies that the system place reorganization 
statistics in the DCBRORG1, DCBRORG2, and DCBRORG3 
fields of the data control block. The problem program 
can analyze these statistics to determine when to 
reorganize the data set. If the OPTCD operand is 
omitted, the reorganization statistics are 
automatically provided. However, if the OPTCD operand 
is supplied, OPTCD=R must be specified to obtain the 
reorganization statistics. 


specifies that the system is to accumulate track index 
entries in storage and write them as a group for each 
track of the track index. OPTCD=U can be specified 
only for fixed-length records. The entries are 
written in fixed-length unblocked format. 


specifies that the system is to perform a validity 
check on each record written. 


specifies that the system is to use the cylinder 
overflow area(s) to contain overflow records. If 
OPTCD=Y is specified, the CYLOFL operand specifies the 
number of tracks to be used for the cylinder overflow 
area. The reserved cylinder overflow area is not used 
unless OPTCD=Y is specified. 
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Source: When an ISAM data set 1s created, the OPTCD 
operand can be supplied in the DCB macro instruction, in 
— the DCB subparameter of a DD statement, or by the problem 

ry program before an OPEN macro instruction is issued to open 
the data set. However, all optional services must be 
requested from the same source. When an existing ISAM data 
set is processed, the optional service information is 
supplied to the data control block from the data set label, 
and the OPTCD operand should be omitted. 


RECFM={VIBI]|FIB]} 
The RECFM operand specifies the format and characteristics 
of the records in the data set. If the RECFM operand is 
omitted, variable-length records Cunblocked) are assumed. 
The following describes the characters that can be 


specified: 
B 
specifies that the data set contains blocked records. 
FE 
specifies that the data set contains fixed-length 
records. 
V 


specifies that the data set contains variable-length 
records. 


Source: When an ISAM data set is created, the RECFM 
operand can be supplied in the DCB macro instruction, in 
the DCB subparameter of a DD statement, or by the problem 
program before an OPEN macro instruction is issued to open 
the data set. When an existing ISAM data set is processed, 
the record format information is supplied by the data set 
label, and the RECFM ceerand should be omitted. 


_ If the record format information is supplied in the DD 
statement or the DCB, it must agree with the information in 
—— the data set label. 


RKP=absexp 

The RKP operand specifies the relative position of the 
first byte of the Key within each logical record. For 
example, if RKP=9 is specified, the key starts in the 10th 
byte of the record. The delete option COPTCD=L) should not 
be specified if the relative key position is the first byte 
of a blocked fixed-length record or the fifth byte of a 
variable-length record. If the RKP operand is omitted, 
RKP=0 is assumed 


If unblocked fixed-length records with RKP=0 are used, the 
key 1s not written as a part of the data record, and the 
delete option can be specified. If blocked fixed-length 
records are used, the key is written as part of each data 
record; either RKP must be greater than zero or the delete 
option must not be used. 


If variable-length records (Cblocked or unblocked) are used, 
and if the delete option is not specified, RKP must be 4 or 
greater; if the delete option is specified, RKP must be 
specified as 5 or greater. The 4 additional bytes allow 
for the block descriptor word in variable-length records. 


Source: When an ISAM data set is created, the RKP operand 
can be supplied in the RCB macro instruction, in the DCB 
subparameter of a DD statement, or by the problem program 
before completion of the data control block exit routine. 
When an existing ISAM data set is processed, the RKP 
information is supplied by the data set label and the RKP 
operand should be omitted. 
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SYNAD=relexp 
The SYNAD operand specifies the address of the error 
analysis routine given control when an uncorrectable 
input/output error occurs. The contents of the registers 
when the error analysis routine is given control are 
described in Appendix A, "Status Information Following an 
Input/Output Operation" on page 192. 





The error analysis routine must not use the save area 
pointed to by register 13, because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can issue a RETURN macro instruction that 
uses the address in register 14 to return control to the 
system. When control is returned in this manner, the 
system returns control to the problem program and proceeds 
as though no error had been encountered; if the error 
analysis routine continues processing, the results may be 
unpredictable. 


For additional information on error analysis routine 
processing for indexed sequential data sets, see Data 
inis j ide. 


Source: The SYNAD operand can be supplied in the DCB macro 
instruction or by the problem program. The problem program 

ea also change the error analysis routine address at any 
ime. 


ein 
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DCB (QSAM) 
CONTROL BLO (QSA 


The data control block for the queued sequential access method 
CQSAM) is constructed during assembly of the problem program. 
The DSORG and MACRF operands must be coded in the DCB macro 
instruction, but the other DCB operands can be supplied to the 
data control block from other sources. Each DCB operand 
description contains a heading, "Source." The information under 
oe describes the sources from which the operand can be 
supplied. 


For information on additional operands for the DCB macro for the 
IBM 3890 Document Processor, see BM 38 fe) fe) 
a : 
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The DCB macro for QSAM is written: 


[symbol]]| DCB [BFALN={F[D}] 
[»>BFTEK={S[A}] 
[,BLKSIZE=absexp] 
[,BUFCB=relexp] 
ry Bur LMabsexe] 
[ 
[ 
[ 





»BUFNO= 
» BUFOFF={absexp|L}] 
» DDNANMNE=symbol]? 
»DEVD={{DA} 
{TA 
[,DEN={1l 
[, TRTCH= 
{PR 
C[,PRTSP= 
{PC 
[,MODE=[ 
[»>STACK= 
{,FUNC={ 


{ 


RD 
Aor 
[ 


» STACK= 
»FUNC={ 


» DSORG={PS | PSU} 
[,EODAD=relexp] 
[,EROPT={ACCISKP | 
[,EXLST=relexp] 
[, LRECL={absexp 
»MACRF={{(GCIMIL 
L|T 
LIT 


[,RECFM 
TILAIMI} 


AIM1}}1 


re 
area” lies es ese esses ees Doe 
DoC!WHOODQDONTAO o== 
suet EPG PG Bee Bere Seed Seed Geel fend fend bee Raed ee comes gy 


Ti 
rv 
ts 





1 This parameter must be supplied before an OPEN macro is 
issued for this DCB; it cannot be supplied in the open exit 
routine. 


The following describes the operands that can be specified in 
the DCB macro instruction for a QSAM data set: 


BFALN={F [|D} 
The BFALN operand specifies the boundary alignment of each 
buffer in the buffer pool when the buffer pool is 
constructed automatically or by a GETPOOL macro 
instruction. If the BFALN operand is omitted, the system 
provides doubleword alignment for each buffer. 


If the data set being created or processed contains 

ISCII/ASCII tape records with a block prefix, the block 

prefix is entered at the beginning of the buffer, and data 

alignment depends on the length of the block prefix. For a 
description of how to specify the block prefix length, ee 
refer to the description of the BUFOFF operand. a ‘ 
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The following describes the characters that can be 
specified: 


: F 
( specifies that each buffer is on a fullword boundary 
es that is not also a doubleword boundary. 


specifies that each buffer 1S on a doubleword 
boundary. 


If the BUILD macro instruction is used to construct the 
buffer pool, the problem program must control buffer 
alignment. 


Source: The BFALN operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. If both the BFALN and BFTEK 
operands are specified, they must be supplied from the same 


source. 

BFTEK={S|A} 
The BFTEK operand specifies the buffering technique that is 
used when the QSAM data set 1s created or processed. If 


the BFTEK operand is omitted, simple buffering is assumed. 
The following describes the characters that can be 
specified: 


S 


specifies that simple buffering is used. 


A 
specifies that a logical record interface is used for 
variable-length spanned records. When BFTEK=A is 
specified, the open routine acquires a record area 
ou equal to the length specified in the LRECL field plus 
32 additional bytes for control information. LRECL=0 
| is invalid. The LRECL provided at open should be the 
maximum length in bytes. The open routine uses this 
value to acquire the record area. When a logical 
record interface is requested, the system uses the 
simple buffering technique. 


BFTEK=A is invalid with MOVE mode. 


To use the simple technique efficiently, the user should be 
familiar with the three transmittal modes for QSAM and the 
buffering techniques described in Data Administration 
Guide. 


Source: The BFTEK operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. If both the BFTEK and BFALN 
operands are specified, they must be supplied from the same 
source. 


BLKSIZE=absexp(maximum value is 32760 for IBM standard labels) 
The BLKSIZE operand specifies the length, in bytes, of a 
data block for fixed-length records, or it specifies the 
maximum length, in bytes, of a data block for 
variable-length or undefined-length records. 


The actual value that can be specified in the BLKSIZE 
operand depends on the device type and record format being 


used. Device capacities are shown in Appendix C, "Device 
Capacities" on page 194. (For additional information about 
device capacity, refer to Data Administration Guide. ) 


For direct access devices when track overflow is used or 
variable-length spanned records are being processed, the 
BLKSIZE operand can be up to the maximum value. For other. 
record formats used with direct access devices, the value 
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specified in the BLKSIZE operand cannot exceed the capacity 
of a single track. 


Because QSAM provides a logical record interface, the 
device capacities shown in Appendix C, “Device Capacities" 
on page 194, also apply to a maximum-length logical record. 
One exception to the device capacity for a logical record 
is the size of variable-length spanned records. Their 
length can exceed the value specified in the BLKSIZE 
operand (see the description of the LRECL operand). 


If fixed-length records are used, the value specified in 
the BLKSIZE operand must be an integral multiple of the 
value specified in the LRECL operand. If the records are 
unblocked fixed-length records, the value specified in the 
BLKSIZE operand must equal the value specified in the LRECL 
operand if the LRECL operand is specified. 


If variable-length records are used, the value specified in 
the BLKSIZE operand must include the data length Cup to 
32756 bytes) plus 4G bytes required for the block descriptor 
word (BDW). For format-D variable-length records, the 
minimum BLKSIZE is 18 bytes. The maximum is 2048 bytes. 
For more information about the BLKSIZE restrictions, see 

a dmini ation Gul 


If ISCII/“ASCII tape records with a block prefix are 
processed, the value specified in the BLKSIZE operand must 
also include the length of the block prefix. If an 
ISCII/ASCII format DB or DBS tape data set is opened for 
output using QSAM with the system acquiring the buffers and 
BUFOFF=0 specified, the value specified in the BLKSIZE 
operand must be increased by 4 to allow for a 4 byte QSAM 
internal processing area. If BUFL is specified, the BUFL 
operand value must be increased by 4%, instead of the 
BLKSIZE operand value. 


If variable-length spanned records are used, the value 
specified in the BLKSIZE operand can be the best one for 
the device being used or the processing being done. When 
unit record devices (card or printer) are used, the system 
assumes records are unblocked; the value specified for the 
BLKSIZE operand is equivalent to one print line or one 
card. A logical record that spans several blocks is 
written one segment at a time. 


If undefined-length records are used, the problem program 
can insert the actual record length into the DCBLRECL 
field. See the description of the LRECL operand. 


Source: The BLKSIZE operand can be supplied in the DCB 
macro instruction, in the DCB subparameter of a DD 
statement, by the problem program before completion of the 
data control block exit routine, or by the data set label 
of an existing data set. 


Note: The maximum block size for Version 3 ISO/ANSI/FIPS 
tapes (ISO 1001-1979 or ANSI X3.27 1978) is 2048 bytes. An 
attempt to exceed 2048 bytes for a Version 3 tape results 
in a label validation installation exit being taken. 


BUFCB=relexp 


The BUFCB operand specifies the address of the buffer pool 
control block constructed by a BUILD or BUILDRCD macro 
instruction. 


If the buffer pool is constructed automatically or by a 
GETPOOL macro instruction, the system places the address of 
the buffer pool control block into the data control block, 
and the BUFCB operand should be omitted. 


Source: The BUFCB operand can be supplied in the DCB macro 
instruction or by the problem program before completion of 
the data control block exit routine. 
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BUFL=absexp (maximum value is 32760) 
The BUFL operand specifies the length, in bytes, of each 
- buffer in the buffer pool when the buffer pool is acquired 
a automatically. If the BUFL operand is omitted, the system 
| acquires buffers with a length equal to the value specified 
aks in the BLKSIZE operand; if the problem program requires 
larger buffers, the BUFL operand is required. If the data 
set is for card image mode, the BUFL operand is specified 
as 160 bytes. The description of the DEVD operand contains 
a description of card image mode. 


If the data set contains ISCII/ASCII tape records with a 
block prefix, the value specified in the BUFL operand must 
also include the length of the block prefix. If an 
ISCII/ZASCII format DB or DBS tape data set 1S opened for 
output using QSAM and BUFOFF=0 is specified, then the BUFL 
operand value, if specified, must be increased by @ to 
allow for a 4-byte QSAM internal processing area. 


If the buffer pool is constructed by a BUILD, BUILDRCD, or 
GETPOOL macro instruction, the BUFL operand is not 
required. 


Source: The BUFL operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 


BUFNO=absexp (Cmaximum value is 255) 

The BUFNO operand specifies the number of buffers in the 
buffer pool constructed by a BUILD or BUILDRCD macro 
instruction, or it specifies the number of buffers to be 
acquired automatically. If chained scheduling is 
specified, the value of BUFNO determines the maximum number 
of channel program segments that can be chained and must be 
specified as more than one. If the BUFNO operand is 

- omitted and the buffers are acquired automatically, the 

_— system acquires three buffers if the device is a 2540 

( device or five buffers for any other device type. 


If the buffer pool is constructed by a GETPOOL macro 
instruction, the BUFNO operand is. not required. 


Source: The BUFNO operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, or 
by the problem program before completion of the data 
control block exit routine. 


BUFOFF={absexp|L} 
The BUFOFF operand specifies the length, in bytes, of the 
block prefix used with ISCII/ASCII tape data sets. When 
QSAM is used to read ISCII/ASCII tape records, only the 
data portion Cor its address) is passed to the problem 
program; the block prefix is not available to the problem 
program. Block prefixes Cexcept BUFOFF=L) cannot be 
included in QSAM output records. The following can be 
specified in the BUFOFF operand: 


absexp 
specifies the length, in bytes, of the block prefix. 
This value can be from 0 to 99 for an input data set. 
The value must be 0 for writing an output data set 
with fixed-length or undefined-length records. 


specifies that the block prefix is 4 bytes long and 
contains the block length. BUFOFF=L is used when 
format-D records CISCII/ASCII) are processed. QSAM 
uses the 4 bytes as a block-descriptor word (CBDW). 
For further information on this operand, see 
"Variable- Length Records—Format D® in Data 

m str on G , 
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Source: The BUFOFF operand can be supplied in the DCB 
macro instruction, in the DCB subparameter of a DD 
statement, or by the problem program before an OPEN macro 
instruction is issued to open the data set. BUFOFF=absexp 
can also be supplied by the second system label of an 
existing data set; BUFOFF=L cannot be supplied by the label 
of an existing data set. 


DDNAME=symbol 


The DDNAME operand specifies the name used to identify the 
job control language data definition (DD) statement that 
defines the data set being created or processed. 


Source: The DDNAME operand can be supplied in the DCB 
macro instruction or by the problem program before an OPEN 
macro instruction is issued to open the data set. 


DEVD={DAI| TAIPRIPC|RD}L[,options] 


The DEVD operand specifies the device type where the data . 
set can or does reside. The device types above are shown 
with the optional operand(s) that can be coded when a 
particular device is used. The devices are listed in order 
of device independence. For example, if DEVD=DA is coded 
in a DCB macro instruction Cor the DEVD operand is omitted, 
which causes a default to DA), the data control block 
constructed during assembly could later be used for any of 
the other devices, but, if DEVD=RD is coded, the data 
control block can be used only with a card reader or card 
reader punch. Unless you are certain that device 
interchangeability is not required, you should either code 
DEVD=DA or omit the operand and allow it to default to DA. 


If system input is directed to an intermediate storage 
device, the DEVD operand is omitted, and the job control 
language for the problem program must designate the system 
input to be used. Similarly, if system output is directed 
to an intermediate storage device, the DEVD operand is 
omitted, and the job control language for the problem 
program must designate the system output to be used. If 
DEVD=PR, PC, or RD is coded, the DCB macro should not be 
coded within the first 16 bytes of addressability for the 
control section. 


The DEVD operand is discussed below according to individual 
device type: 


DEVD=DA 
specifies that the data control block can be used for 
a direct access device Cor any of the other device 
types described following DA). 


DEVD=TA 
[,DEN={1]21314}] 
[> TRTCH={CIEIET|T}] 
specifies that the data control block can be used for 
a magnetic tape data set (Cor any of the other device 
types described following TA). If TA is coded, the 
following optional operands can be coded: 


DEN={1]2]314} 
The DEN operand specifies the recording density 
in the number of bits-per-inch per track as shown 
in the following: 


Recording Density 


DEN 7-Track 9-Track 18-Track 
1 556 N/A N/A 
2 800 800 C(CNRZI)? N/A 
3 N/A 1600 €PE)* NZA 
G N/A 6250 (CGCR)? NZA 
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1 NRZI is for nonreturn~-to-zero inverted mode. 
2 PE is for phase encoded mode. 
( | 3 GCR is for group coded recording mode. 


TRTCH= Soe 
he TRTICH operand specifies the recording 
te Aes for 7-track tape. One of the above 


character combinations can be coded. If the 
TRTCH operand is omitted, odd parity with no 
translation or conversion is assumed. The 
following describes the characters that can be 
specified: 

Cc 


specifies that the data-conversion feature 
is used with odd parity and no translation. 


E 
specifies even parity with no translation or 
conversion. 

ET 
specifies even parity with BCDIC to EBCDIC 
translation required, but no data-conversion 
feature. 

T 


specifies that BCDIC to EBCDIC translation 
is required with odd parity and no 
data-conversion feature. 


DEVD=PR 
C,PRTSP={0/1/2133] 
Specifies that the data control block is used for an 
on-line printer Cor any of the other device types 
a following PR). If PR is coded, the following optional 
( operand can be coded: 


PRTSP={0[1|2[3} 
The PRTSP operand specifies the line spacing on 
the printer. This operand is not valid if the 
RECFM operand specifies either machine CRECFM=M), 
ANSI CRECFM=A), or ISO control characters. If 
the PRTSP operand is not specified from any 
source, one 1s assumed. The following describes 
the characters that can be specified: 


0 
specifies that spacing is suppressed (no 
space). 

A ee ; 
specifies single spacing. 

2 e s « - 
specifies double spacing Cone blank line 
between printed lines). 

3 


specifies triple spacing (two blank lines 
between printed lines). 


Note: MODE and FUNC subparameters cannot be 
used with this specification. 


DEVD=PC 
[,MODE=[CJEI]IER1] 
[,STACK={1|2}1 
C>FUNC={I/PIPWEIXTIIRIRPLDI|RWEITI[RWPEXTICD] | WET]}] 
Specifies that the data control block is used for a 
card punch Cor any of the other device types following 
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PC). If PC is coded, the following optional operands 
can be specified: | 


MODE=[CIEI][R]]1 
The MODE operand specifies the mode of operation 
for the card punch. If the MODE operand is 
omitted, E is assumed. The following describes 
the characters that can be specified: 


Cc 
specifies that the cards are to be punched 
in card image mode. In card image mode, the 
12 rows in each card column are punched from 
two consecutive bytes of virtual storage. 
Rows 12 through 3 are punched from the 6 
low-order bits of one byte, and rows 4 
through 9 are punched from the 6 low-order 
bits of the following byte. 


specifies that cards are to be punched in 
EBCDIC code. 


STACK={1]| 2} 
The STACK operand specifies the stacker bin where 
the card is placed after punching is completed. 
If this operand is omitted, stacker number 1 is 
used. The following describes the characters 
that can be specified: 


i 


specifies stacker number l. 


2 
specifies stacker number 2. 


FUNC={IIP|PWEIXTIJRIRPIDI|RWEITI|RWPCXTICDI](WITI} 
The FUNC operand defines the type of 3525 card 
punch data sets that is to be used. If the FUNC 
operand is omitted from all sources, a data set 
opened for input defaults to read only, anda 
data set opened for output defaults to punch 
only. The following describes the characters 
that can be specified in the FUNC operand: 


D 
specifies that the data protection option is 
to be used. The data protection option 
prevents punching information into card 
columns that already contain data. When the 
data protection option is used, an 80-byte 
data protection image (DPI) must have been 
previously stored in SYSI]1.IMAGELIB. Data 
protection applies only to the output punch 
portion of a read and punch or read, punch, 
and print operation. 


specifies that the data in the data set is 

to be punched into cards and printed on the 
cards; the first 64 characters are printed 

on line 1 of the card and the remaining 16 

characters are printed on line 3 


specifies that the data set is for punching 
cards. See the description of the character 
X for associated punch and print data sets. 


specifies that the data set is for reading 
cards. 
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specifies that the two-line option is used. 
The two-line print option allows two lines 
of data to be printed on the card Clines 1 
and 3). If T 1s not specified, the 
multiline print option is used; this allows 
printing on all 25 possible print lines. In 
either case, the data printed may be the 
same as the data punched in the card, or it 
may be entirely different data. 


specifies that the data set is for printing. 
See the description of the character X for 
associated punch and print data sets. 


specifies that an associated data set 15s 
opened for output for both punching and 
printing. Coding the character X is used to 
distinguish the 3525 printer output data set 
from the 3525 punch output data set. 


Note: If data protection is specified, the data 
protection image (DPI) must be specified in the 
FCB subparameter of the DD statement for the data 


set. 
DEVD=RD 
[,MODE=[CJE][0[R]] 
[»STACK={1]2}] 
[»FUNC={I]P|PWEXTI]RIRPLD] | RWELT] | RWPLXTILD]IWEIT]}1 
RD 


specifies that the data control block is used with a 
card reader or card read punch. If RD is specified, 
the data control block cannot be used with any other 
device type. When RD is coded, the following optional 
operands can be specified: 


MODE=[C|EI]I[0|R] 
The MODE operand specifies the mode of operation 
for the card reader. The following describes the 
characters that can be specified: 


Cc 
specifies that the cards to be read are in 
card image mode. In card image mode, the 12 
rows of each card column are read into two 
consecutive bytes of virtual storage. Rows 
l2 through 3 are read into the 6 low-order 
bits of one byte, and rows 4 through 9 are 
read into the 6 low-order bits of the 
following byte. 


specifies that the cards to be read contain 
data in EBCDIC code. 


specifies that the program runs in optical 
mark read mode (3505 card reader). 


specifies that the program runs in 
read-column-eliminate mode (3505 card reader 
and 3525 card punch, read feature). 


Notes: If the MODE operand for a 3505 or 3525 is 
specified in the DCB subparameter of a DD 
statement, either C or E must be specified if R 
or 0 is specified. 
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STACK={112} 
The STACK operand specifies the stacker bin into 
which the card is placed after reading is 








completed. If this operand is omitted, stacker | a 
number 1] 1s used. The following describes the (ep 
characters that can be specified: XT 
i , 

specifies stacker number 1. 
2 

specifies stacker number 2. | 

FUNC={IIP|]PWEIXTIIRIRPEID]|RWEITI]RWPEXTIEDI|WELTI} | 

The FUNC operand defines the type of 3525 card | 
punch data sets that are used. If the FUNC ! 
operand is omitted from all sources, a data set | 
opened for input defaults to read only, anda 
data set opened for output defaults to punch | 
only. The following describes the characters | 
that can be specified in the FUNC operand: 
D 

specifies that the data protection option is 

to be used. The data protection option 

prevents punching information into card 

columns that already contain data. When the 

data protection option is used, an 80-byte 

data protection image (DPI) must have been 

previously stored in SYSI1.IMAGELIB. Data 

protection applies only to the output punch 

portion of a read and punch or read, punch, 

and print operation. 
I 

specifies that the data in the data set is 

to be punched into cards and printed on the 

cards; the first 64 characters are printed de 

on line 1 of the card and the remaining 16 ( ] 

characters are printed on line 3. Me?” 
p 

specifies that the data set is for punching 

cards. See the description of the character 

X for associated punch and print data sets. 
R 

specifies that the data set is for reading 

cards. 
T 

specifies that the two-line option is used. 

The two-line print option allows two lines 

of data to be printed on the card (lines l 

and 3). If T is not specified, the 

multiline print option is used; this allows 

printing on all 25 possible print lines. In 

either case, the data printed may be the 

same as the data punched in the card, or it 

may be entirely different data. 
W 

specifies that the data set is for printing. 

See the description of the character X for 

associated punch and print data sets. 
X 


specifies that an associated data set is 
opened for output for both punching and 
printing. Coding the character X is used to 
distinguish the 3525 printer output data set 
from the 3525 punch output data set. 
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Note: If data protection is specified, the 
data protection image (DPI) must be 
specified in the FCB subparameter of the DD 
statement for the data set. 


Source: The DEVD operand can be supplied only in 
the DCB macro instruction. However, the optional 
operands can be supplied in the DCB macro 
instruction, the DCB subparameter of a DD 
statement, or by the problem program before 
completion of the data control block exit 
routine. 


DSORG={PS]| PSU} 


The DSORG operand specifies the organization of the data 
set and indicates if the data set contains any 
location-dependent information that would make it 
unmovable. The following can be specified in the DSORG 
operand: 


PS 
Specifies a physical sequential data set. 

PSU 
Specifies a physical sequential data set that contains 
location-dependent information. 
Source: The DSORG operand must be coded in the DCB 
macro instruction. 


EQDAD=relexp 


he EODAD operand specifies the address of the routine 
given control when the end of an input data set is reached. 
Control is given to this routine when a GET macro 
instruction is issued and there are no additional records 
to be retrieved. If the record format is RECFM=FS or FBS 
the end-of-data condition is sensed when file mark is read 
or if more data is requested after reading a truncated 
block. If the end of the data set has been reached but no 
EODAD address has been supplied to the data control block, 
or if a GET macro instruction is issued after an 
end-of-data exit is taken, the task is abnormally 


terminated. For additional information on the EODAD 
routine, see Data Administration Guide. 


Source: The EQDAD operand can be supplied in the DCB macro 
instruction or by the problem program before the end of the 
data set has been reached. 


EROPT={ACC|SKP| ABE} 


The EROPT operand specifies the action taken by the system 
1f an uncorrectable input/output data validity error occurs 
and no error analysis (SYNAD) routine address has been 
provided, or it specifies the action taken by the system 
after the error analysis routine has returned control to 
the system with a RETURN macro instruction. The specified 
action is taken for input operations for all devices or for 
output operations to a printer. 


Uncorrectable input/output errors resulting from channel 
operations or direct access operations that make the next 
record inaccessible cause the task to be abnormally 
baal regardless of the action specified in the EROPT 
operand. 


ACC 
specifies that the problem program accepts the block 
causing the error. This action can be specified when 
a data set is opened for INPUT, RDBACK, UPDAT, or 
OUTPUT COUTPUT applies to printer data sets only). 


SKP 


specifies that the block that caused the error is to 
be skipped. Specifying SKP also causes the buffer 
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associated with the data block to be released. This 
action can be specified when a data set is opened for 
INPUT, RDBACK, or UPDAT. 


specifies that the error is to result in the abnormal 
termination of the task. This action can be specified 
when the data set is opened for INPUT, OUTPUT, RDBACK, 
or UPDAT. 


If the EROPT operand is omitted, the ABE action 18S assumed. 


Note: If the EROPT operand is ACC or SKIP, accept or skip 
processing is done after returning from the error analysis 
(SYNAD) routine. For this reason, FEOV should not be 
issued from within the error analysis routine. 


Source: The EROPT operand can be specified in the DCB 
macro instruction, in the DCB subparameter of a DD 

statement, or by the problem program at any time. The 
ooo program can also change the action specified at any 
ime 


EXLST=relexp 


The EXLST operand specifies the address of the problem 
program exit list. The EXLST operand is required if the 
problem program requires additional processing for the 
following: user labels, user totaling, data control block 
exit routines, end-of-volume, block count exits, defining a 
forms control buffer CFCB) image, using the JFCBE exit (for 
the 3800 printer), or using the DCB abend exit for abend 
condition analysis. | 


For the format and requirements of exit list processing, 
see Appendix D, "DCB Exit List Format and Contents" on 
page 197. For additional information about exit routine 
processing, see Data ini i j ‘ 


Source: The EXLST operand can be supplied in the DCB macro 
instruction or by the problem program any time before the 
exit 1s required by the problem program. 


LRECL= =tabsexe |X! 0K | nnnnnk} 





RECL operand specifies the length, in bytes, for 
oe length logical records, or it specifies the maximum 
length, in bytes, for variable-length or undefined-length 
Coutput only) logical records. The value specified in the 
LRECL operand cannot exceed the value specified in the 
se rae ed except when variable-length spanned records 
are used. 


For fixed-length records that are unblocked, the value 
specified in the LRECL operand must be equal to the value 
specified in the BLKSIZE operand. For blocked fixed-length 
records, the value specified in the LRECL operand must be 
el ea a ae into the value specified in the BLKSIZE 
operand. 


For variable-length logical records; the value specified in 
the LRECL operand must include the maximum data length Cup 
a plus 4 bytes for the record- descriptor word 


For undefined-length records, the problem program must 
insert the actual logical record length into the DCBLRECL 
field before writing the record, or the maximum-length 
record will be written. 


For variable-length spanned records, the logical record 
length CLRECL) can exceed the value specified in the 
BLKSIZE operand, and a variable-length spanned record can 
exceed the maximum block size (32760 bytes). When the 
logical record length exceeds the maximum block size (for 
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non-XLRI processing), LRECL=X must be specified and GET or 
PUT locate mode must be used. | 

For ISO/ANSI/FIPS variable-length spanned records CRECFM=DS 
or RECFM=DBS), the extended logical record interface (XLRI) 
may be used when the maximum logical record length exceeds 
32760 bytes. XLRI must be invoked by specifying LRECL=0K 
or LRECL=nnnnnk. The value nnonnnk may range from 1K to 
16383K. tlhe value determines the size of the record area 
Cin 1024-byte units) required to contain the longest 
logical record of the data set. When LRECL=0K is 
specified, the length of the longest logical record must 
come from the DD statement or the data set label. XLRI 
processing is only valid in QSAM locate mode. You must not 
specify LRECL=X for RECFEM=DS or DBS 


Source: The LRECL operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, by 
the problem program before completion of the data control 
block exit routine, or by the data set label of an existing 
data set. The label will indicate a logical record length 
of '99999' when an IBM standard label tape contains a 
logical record equal to or greater than 100K bytes. The 
label will indicate '00000' if the same maximum is reached 
for an ISO/ANSI/FIPS label tape. 


Note: When LRECL=0K is used in the DCB, the LRECL data 
must come from JCL, the file label (for an input data set), 
or from the DCB exit during open merge. | 


Although LRECL=0K is only valid when RECFM=DS or DBS, you 
can specify the OK option on the DCB macro even though the 
RECFM is not determined until the DCB is opened. (The 
RECFM is obtained from the data set label or the DD 
statement.) If you specify neither the DS nor the DBS 
option, the system turns the OK indicator off, and restores 
it when the DCB is closed. 


MACRF={{(G{MILIDIIC] )} 


CCP{IM[LID}£[C])}} 

C(G{IM|LID}IC]1,P{LM|L[T|]D}£C] )}} 
The MACRF operand specifies the type of macro instructions 
(GET, PUT or PUTX, CNTRL, RELSE, and TRUNC) and the 
transmittal modes (move, locate, and data) that are used 
with the data set being created or processed. The operand 
can be coded in any of the combinations shown above; the 
following describes the characters that can be coded: 


Cc 
specifies that the CNTRL macro instruction is used 
with the data set. If the CNTRL macro instruction is 
specified, the data set should be for a card reader 
(stacker selection) or printer (Ccarriage and spacing 
control). The CNTRL option can be specified with GET 
in the move mode only. Use of the CNITRL macro is 
invalid for 3525 input data sets. 


specifies that the data transmittal mode is used Conly 
the data portion of a record 1s moved to or from the 
work area). Data mode is used only with 
variable-length spanned records. 


specifies that GET macro instructions are used. 
Specifying G also provides the routines that allow the 
problem program to issue RELSE macro instructions. 


specifies that the locate transmittal mode is used; 
the system provides the address of the buffer 
containing the data. 
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M 
specifies that the move transmittal mode is used; the 
system moves the data from the buffer to the work area 
in the problem program. —_ 
| : ' 
Pp ed 


specifies that PUT or PUTX macro instructions are 
used. Specifying P also provides the routines that 
allow the problem program to issue TRUNC macro 
instructions. 


Note: For data sets processed by QSAM using MACRF=(GM) or 
MACRF=(PMN), do not code BFTEK=A. 


Source: The MACRF operand can be supplied only in the DCB 
macro instruction. 


OPTCD={{B} 


The OPTCD operand specifies the optional services used with 
the QSAM data set. Two of the optional services, OPTCD=B 
and OPTCD=H, cannot be specified in the DCB macro 
instruction. They are requested in the DCB subparameter of 
a DD statement. Because all optional services codes must 
be supplied by the same source, the OPTCD operand must be 
omitted from the DCB macro instruction if either of these 
options is requested ina DD statement. The following 
describes the characters that can be specified: 


Cc 
requests that chained scheduling be used. OPTCD=C ; 
cannot be specified when either BFTEK=A or BFTEK=R is Ne 
specified for the same data control block. Also, 
chained scheduling cannot be specified for associated 
data sets or printing on a 3525 and is ignored for 
direct access devices. 


Note: Except where it is not allowed, chained 
scheduling is used whether requested or not. For 
conditions under which it 1s not allowed, see Data. 


Administration Guide. 


specifies that the first data byte in the output data 
line will be a 3800 table reference character. This 
table reference character selects a particular 
character arrangement table for the printing of the 
data line and can be used singly or in conjunction 
with ISO/ANSI/FIPS or machine control characters. 

This option is valid only for the IBM 3800 Printing 
Subsystem. For information on the table reference 
character and character arrangement table, see JBM 
3800 Print) ubsyste ogrammer's Guide. 


requests that ISCII/ASCII tape records in an input 
data set be converted to EBCDIC code when the input 
record has been read, or an output record in EBCDIC 
code be converted to ISCII/ASCII code before the 
record is written. For further information on this 
conversion, see "Variable-Length Records—Format D"™ in 


Data Administration Guide. 


The Q option is unconditionally set by open routines £~ 
if the data set is for a tape with ISO/ANSI/FIPS oe 
labels. For ISCII/ASCII to EBCDIC or EBCDIC to 
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( requests the user totaling function. If this function 
= 1s requested, the EXLST operand should specify the 
address of an exit list to be used. T cannot be 


specified for a SYSIN or SYSOUT data set. 


1s specified only for a printer with the 
universal-character-set feature or the IBM 3800 
Printing Subsystem. This option unblocks data checks 
(permits them to be recognized as errors) and allows 
analysis by the appropriate error analysis routine 
(SYNAD exit routine). If the U option is omitted, 
data checks are not recognized as errors. 


For the IBM Mass Storage System (MSS): U requests 
window processing to reduce the amount of staging 
space required to process large sequential data sets 
on MSS. DSORG must specify physical sequential, 
allocation must be in cylinders, and type of I/0 
accessing must be either INPUT only or QUTPUT only. 


for DASD, specifies that the system is to perform a 
validity check on each record written on a direct 
access device. For buffered devices, specifies that 
device end interrupt is to be given only when a record 
is physically on the device. By specifying OPTCD=W 
with buffered devices, you do not benefit from the 
performance advantage of buffering. 


requests, for magnetic tape, input only, the system to 
shorten its normal error recovery procedure to 
aa consider a data check as a permanent I/0 error after 

( five unsuccessful attempts to read a record. This 
option is available only if it is also specified as a 
SYSGEN option. OPTCD=Z is used when a tape is Known 
to contain errors and there is no need to process 
every record. The error analysis routine CSYNAD) 
should keep a count of permanent errors and terminate 
processing if the number becomes excessive. 


For direct access devices only, the Z option is 
ignored. 


Note: The following describes the optional services that 
can be specified in the DCB subparameter of a DD statement. 
If either of these options is requested, the complete OPTCD 
operand must be supplied in the DD statement. 


B 
If OPTCD=B is specified in the DCB subparameter of a 
DD statement, it forces the end-of-volume CEOV) 
routine to disregard the end-of-file recognition for 
magnetic tape. When this occurs, the EOV routine uses 
the number of volume serial numbers to determine end 
of file. For an input data set on a standard labeled 
(SL or AL) tape, the EOV routine will treat EOF labels 
as EOV labels until the volume serial list is 
exhausted. After all the volumes have been read, 
control is passed to the user's end-of-data routine. 
This option allows SL or AL tapes to be read out of 
volume sequence or to be concatenated to another tape 
using one DD statement. 


If OPTCD=H is specified in the DCB subparameter of a 
DD statement, it specifies that the DOS/OS interchange 
feature is being used with the data set. 
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RECFM={{ULTILAIM1}} 
 EVEBISHETIISETIITILAIMI} 
{DEBISI|£S1£A]1]} 
{FIBISITIBSIBTILAIMJ}} Fan 


The RECFM operand specifies the record format and ce 
characteristics of the data set being created or processed. ‘a 
All record formats can be used in QSAM. The following 

describes the characters that can be specified: 


A 
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specifies that the records in the data set contain 
ISO/ANSI/FIPS control characters. For a description 
of control characters, see Appendix E, "Control 
Characters" on page 199. 


specifies that the data set contains blocked records. 


specifies that the data set contains variable-length 
ISCII/ASCII tape records. See OPTCD=Q and the BUFOFF 
operand for a description of how to specify 
ISCII/ASCII data sets. 


specifies that the data set contains fixed-length 
records. 


specifies that the records in the data set contain 
machine code control characters. For a description of 
control characters, see Appendix E, "Control 
Characters" on page 199. RECFM=M cannot be used with 
ISCII/ASCII data sets. 


specifies, for fixed-length records, that the records 

are to be written as standard blocks; the data set ge he 
does not contain any truncated blocks or unfilled 
tracks, with the exception of the last block or track Ne 
in the data set. Do not code S$ for fixed-length 

records to retrieve records from a data set that was 

created using a RECFM other than standard. 


For variable-length records, S specifies that a record 
can span more than one block. 


specifies that track overflow is used with the data 
set. Track overflow allows a record to be written 
partially on one track and the remainder of the record 
on the following track (Cif required). Chained 
scheduling COPTCD=C) cannot be requested if track 
overflow 1s used. 


specifies that the data set contains undefined-length 
records. 


Note: Format-U records are not supported for Version 
3 ISO/ANSI/FIPS tapes. An attempt to process a 
format-U record for a Version 3 tape results in a 
label validation installation exit being taken. 


ISO/ANSI Version 1 CISO 1001-1969 or ANSI X3.27-1969) | 
format-U records can be used for input only. These | 
records are the same as the format-U records described 
above, except that the control characters must be 
ere control characters, and block prefixes can be 
used. 


specifies that the data set contains variable-length a | 
records. ‘ey 
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DCB (QSAM) 
Notes: 


e RECFM=V cannot be specified for a card reader data set 
or an ISO/ANSI/ZFIPS tape data set. 


® RECFM=VS, VBS, DS, or DBS cannot be specified for a 
SYSIN data set. 





° RECFM=DS or RECFN=DBS provides blocking, unblocking, 
and segmenting for Version 3 ISO/ANSI/FIPS tape data 
sets. 


Source: The RECFM operand can be supplied in the DCB macro 
instruction, in the DCB subparameter of a DD statement, by 
the problem program before completion of the data control 
chars ak routine, or by the data set label of an existing 
data set. 


SYNAD=relexp 
The SYNAD operand specifies the address of the error 
analysis routine given control if an uncorrectable 
input/output error occurs. The contents of the registers 
when the error analysis routine is given control are 
described in Appendix A, "Status Information Following an 
Input/Output Operation" on page 192. 


The error analysis routine must not use the save area 
pointed to by register 13, because this area is used by the 
system. The system does not restore registers when it 
regains control from the error analysis routine. The error 
analysis routine can issue a RETURN macro instruction that 
uses the address in register 14 to return control to the 
system. 


If the error condition was the result of a data-validity 
error, the control program takes the action specified in 
the EROPT operand; otherwise, the task is abnormally 
occ terminated. The control program takes these actions when 
( the SYNAD operand is omitted or when the error analysis 
routine returns control. 


Source: The SYNAD operand can be supplied in the DCB macro 
instruction or by the problem program. The problem program 
can also change the error routine address at any time. 
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DCBD 


DCBD-~PROVID NCE A TROL { M, 2 2 2 


E SYMBOLIC REFERENCE TO DATA CONTROL BLOCKS (BDA BISAM, BPAM, BSAH 
SA | 


QISAM, AND QSAM) 


The DCBD macro instruction is used to generate a dummy control 
section that provides symbolic names for the fields in one or 
more data control blocks. The names and attributes of the 
fields appear as part of the description of each data control 
block in Appendix F, "Data Control Block Symbolic Field Names" 
on page 202. Attributes of the symbolically named fields in the 
dummy section are the same as the fields in the data control 
blocks, with the exception of fields containing 3-byte 
addresses. The symbolically named fields containing 3-byte 
addresses have length attributes of 4 and are aligned on 
fullword boundaries. 


The labels generated by the DCBD macro should not be defined 
within a user program. The macro labels are structured as DCB 
xxxxx, Where DCB is the first 3 characters and xxxxx is 1 to 5 
alphameric characters. 


The name of the dummy control section generated by a DCBD macro 
instruction is IHADCB. The use of any of the symbolic names 
provided by the dummy section must be preceded by a USING 
instruction specifying IHADCB and a dummy section base register 
(which contains the address of the actual data control block). 
The DCBD macro instruction can only be issued once within any 
assembled module; however, the resulting symbolic names can be 
used for any number of data control blocks by changing the 
address in the dummy section base register. The DCBD macro 
instruction can be coded at any point ina control section; if 
coded at any point other than at the end of a control section, 
however, the control section must be resumed by coding a CSECT 
instruction. 


The DCBD macro 1s written: 


CDSORG=({GS| | 
[CBSIL,DAIL,ISJ[,LRIL,POILE,PSI1L,QS]})1] 


[»,DEVD=([LDA]L,PC][,PRIL,RDIL[,TA] 
[,MR])] 





DSORG=({GS|C[BS1f£,DA][,IS][,LRI£,PO1]1L,PS1L,QS]}) 

The DSORG operand specifies the types of data control 
blocks for which symbolic names are provided. If the DSORG 
operand 1s omitted, the DEVD operand is ignored, and 
symbolic names are provided only for the ‘foundation block’ 
portion that is common to all data control blocks. One or 
more of the following pairs of characters can be specified 
Ceach pair of characters must be separated by a comma): 


BS 
specifies a data control block for a sequential data 
set and basic access method. 
DA 
specifies a data control block for a direct data set. 
Is 
specifies a data control block for an indexed 
sequential data set. 
LR 
specifies a dummy section for the logical record 
length field CDCBLRECL) only. 
PO 
specifies a data control block for a partitioned data 
set. 
PS 


specifies a data control block for a sequential data 
set. PS includes both BS and QS. 
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DCBD 
Qs 


specifies a data control block for a sequential data 
set and queued access method. 


GS 
specifies a data control block for graphics; this 
operand cannot be used in combination with any of the 
above. 


DEVD=[DAI][,PC][,PRIL,RDIL[,TAIL,MR] 


The DEVD operand specifies the types of devices on which 
the data set can reside. If the DEVD operand is omitted 
and a sequential data set 1S specified in the DSORG 
operand, symbolic names are provided for all the device 
types listed below. One or more of the following pairs of 
characters can be specified; each pair of characters must 
be separated by a comma: 


DA 

Direct access device 
PC 

On-line punch 
PR 

On-line printer 
RD 

On-line card reader or read punch feed 
TA 

Magnetic tape 
MR 


Magnetic character reader 
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ESETL 


ESETL-—END SEQUENTI TRIEVAL (QISA 
The ESETL macro instruction ends the sequential retrieval of 
data from an indexed sequential data set and causes the buffers —_ 
associated with the specified data control block to be released. ee 
An ESETL macro instruction must separate SETL macro instructions ed 


issued for the same data control block. 


The ESETL macro is written: 


[symboll]] ESETL dcb address 


dcb address—RX-Type Address, (2-12), or (1) 
The dcb address operand specifies the address of the data 
control block opened for the indexed eonuenssae data set 
being processed. 
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FEOV 
FEOV-~FORCE END OF VOLUME (BSAM AND QSAM) 


= The FEOV macro instruction causes the system to assume an 

end-of-volume condition, and causes automatic volume switching. 
Volume positioning for magnetic tape can be specified by the 
option operand. If no option is coded, the positioning 
specified in the OPEN macro instruction is used. Output labels 
are created as required and new input labels are verified. The 
standard exit routines are given control as specified in the 
data control block exit list. For BSAM, all input and output 
operations must be tested for completion before the FEOV macro 
instruction 1s issued. The end-of-data-~set CEOQDAD) routine is 
given control if an input FEOV macro instruction is issued for 
the last volume of an input data set. FEOV is ignored if issued 
for a SYSIN or SYSOUT data set. 


The FEOV macro is written: 


Csymbol1]| FEOV dcb_ address 
[, T, REWIND|, LEAVE] 


dcb address——RX-Type Address, (2-12), or (1) 
The dcb address operand specifies the address of the data 
control block for an opened sequential data set. 


REWIND 
requests that the system position the tape at the load 
point regardless of the direction of processing. 


LEAVE : 
requests that the system position the tape at the logical 
end of the data set on that volume; this option causes the 
tape to be positioned at a point after the tapemark that 
follows the trailer labels. Note that multiple tape units 

oye, must be available to achieve this positioning. If only one 
( tape unit 1s available, its volume is rewound and unloaded. 


Note: If an FEOV macro is issued for a multivolume data 
set with spanned records that 18S being read using QSAM, 
errors may occur-when the next GET macro is issued 
following an FEOV macro if the first segment on the new 
volume is not the first segment of a record. The errors 
include duplicate records, program checks in the user 
oa and invalid input from the variable spanned data 
se 


The FEOV macro should not be used within the error analysis 
routine (SYNAD). 
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FIND 


IND“~ESTABLISH THE BEGINNING OF D s EMBE BPA 


COMPLETION CODES 


The FIND macro instruction causes the system to use the address 
of the first block of a specified partitioned data set member as 
the starting point for the next READ macro instruction for the 
same data set. All previous input and output operations that 
specified the same data control block must have been tested for 
completion before the FIND macro instruction is issued. 


The FIND macro is written: 


[symbol] dcb address 
y {name address»Dlrelative address list,C} 


dcb address-—RX-Type Address, (2-12), or (1) 


The dcb address operand specifies the address of the data 
control block for the opened partitioned data set being 
processed. 


Name address-——RX-Type Address, (2-12), or (0) 
The name address operand specifies the address of an 8-byte 
field that contains the data set member name. The name 
must start in the first byte and be padded on the right (if 
necessary) to complete the 8 bytes. 


Specifies that only a member name has been supplied, and 
the access method must search the directory of the data set 
indicated in the data control block to find the location of 
the member. 


relative address list—RX-Type Address, (2-12), or (0) 
The relative address list operand specifies the address of 
the area that contains the relative address (TTRK) for the 
beginning of a data set member. The relative address can 
be a list entry completed by using a BLDL macro instruction 
for the data set being processed, or the relative address 
can be supplied by the problem program. 


specifies that a relative address has been supplied, and no 
directory search is required. The relative address 
supplied is used directly by the access method for the next 
input operation. 


Note: When using the FIND macro, the DCBRELAD address in 
the DCB is updated. The FIND macro should not be used 
after WRITE and STOW processing without first closing the 
data set and reopening it for INPUT processing. 


For relative address list» C, when the system returns control to 
the problem program, the low-order byte of register 15 contains 
the following return code; the 3 high-order bytes of register 15 
are set to QO. 


relative address list, C 


00 — At all times. If the relative address 1S in error, 
execution of the next CHECK macro instruction causes 
control to be passed to the error analysis (SYNAD) 
routine. 
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FIND 
For name address, D, when the system returns control to the 
problem program, the low-order byte of register 15 contains a 
return code and the low-order byte of register 0 contains a 
reason code. The 3 high-order bytes of these two registers are 
set to 0. 


name address, D 


Return Reason 
Code (15) Code (0) Meaning 


00 (X'00') 00 ¢X'00') Successful execution. 
04 €X'0G') 00 €X'00') Name not found. 


08 (X'08!) 00 €X'00') Permanent I/O error during directory 
search. 


08 CX'08!') 04 (X'0G') Insufficient virtual storage available. 
08 (€X'08') 08 (X'08') Invalid DEB. CNot in key 0 through 7.) 
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FREEBUF 


FREEBUF=~RETU UFFE Q 00 BD SA P D_BSA 


The FREEBUF macro instruction causes the system to return a 


buffer to the buffer pool assigned to the specified data control 


block. The buffer must have been acquired using a GETBUF macro 
instruction. 


The FREEBUF macro is written: 


[symbol] dcb_ address 
sregister 


s——-RX-Type Address, (2-12), or (1) 
The dcb address operand specifies the address of the data 


control block for an opened data set to which the buffer 
pool has been assigned. 


register—(2-12) 
The register operand specifies one of registers 2 through 


12 that contains the address of the buffer being returned 
to the buffer pool. 
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FREEDBUF 
REEDBUF-—RETUR DYNAMICA OBTAINED BUFFE DAM_AND_ BISAM) 


buffer to the buffer pool assigned to the specified data control 
block. The buffer must have been acquired through dynamic 
buffering; that is, by coding 'S' for the area address operand 
in the associated READ macro instruction. 


( The FREEDBUF macro instruction causes the system to return a 


Note: <A buffer acquired dynamically can also be released by a 
WRITE macro instruction; see the description of the WRITE macro 
instruction for BDAM or BISAM. 


The FREEDBUF macro is written: 


[symbol]] FREEDBUF decb address 
K|D 
deb address 





dech address—RxX-Type Address, (2-12), or (0) 
The decb address operand specifies the address of the data 
event control block (CDECB) used or created by the READ 
macro instruction that acquired the buffer dynamically. 


specifies that BISAM is being used. 


specifies that BDAM is being used. 


dcb address-——-RX-Type Address, (2-12), or (1) 
The dcb address operand specifies the address of the data 
control block for the opened data set being processed. 
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FREEPOOL 
FREEPOOL~“RELEASE BUFFE go BDA BISAM, BPA BSAM ISAM D_QSA 


The FREEPOOL macro instruction causes an area of storage, 
previously acquired for a buffer pool for a specified data 
control block, to be released. The area must have been acquired 
either automatically Cexcept when dynamic buffer control is 
used) or by the execution of a GETPOOL macro instruction. For 
queued access methods, the FREEPOOL macro instruction must not 
be issued until after a CLOSE macro instruction has been issued 
for all the data control blocks using the buffer pool. For 
basic access methods, the FREEPOOL macro instruction can be 
issued as soon as the buffers are no longer required. A buffer 
pool should be released only once, regardless of the number of 
data control blocks sharing the buffer pool. 


The FREEPOOL macro is written: 


[symbol]| FREEPOOL| dcb address 


dcb address-——RX-Type Address, (2-12), or (1) 
The dcb address operand specifies the address of a data 
control block to which the buffer pool has been assigned. 
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GET 


OGIC ECORD S) 


The GET macro instruction causes the system to retrieve the next 
record. Control is not returned to the problem program until 
the record is available. 


The GET macro is written: 


[symbol]] GET dcb address 
[,area address] 


dcb address—RxX-Type Address, (2-12), or (1) 
The dcb address operand specifies the address of the data 
control block for the opened input data set being 
retrieved. 


area address—RxX-Type Address, (2-12), or (0) 
The area address operand specifies the storage address into 
which the system is to move the record (move mode only). 
Either the move or locate mode can be used with QISAM, but 
they must not be mixed within the specified data control 
block. The following describes operations for move and 
locate modes: 


Locate Mode: If locate mode has been specified in the data 
control block, the area address operand must be omitted. 
The system returns the address of the buffer segment 
containing the record in register 1. 


Move Mode: If move mode has been specified in the data 
control block, the area address operand must specify the 
address in the problem program into which the system will 
move the record. If the area address operand is omitted, 
the system assumes that register 0 contains the area 
address. When control is returned to the problem program, 
register 0 contains the area address, and register 1 
contains the address of the data control block. 


Notes: 


1. The end-of-data-~set CEODAD) routine 1s given control if the 
end of the data set 1s reached; the data set may be closed 
if processing 18S completed, or an ESETL macro must be issued 
before a SETL macro to continue further input processing. 


2. The error analysis (SYNAD) routine is given control if the 
input operation could not be completed successfully. The 
contents of the general registers when control 1s given to 
the SYNAD exit routine are described in Appendix A, "Status 
NN Following an Input/Output Operation" on 
page 192. 


3. When the Key of an unblocked record is retrieved with the 
data, the address of the key is returned as follows (see the 
SETL macro instruction): 


Locate Mode: The address of the Key is returned in register 
0. 


Move Mode: The key appears in front of the record in your 
buffer area. 


G. If a GET macro instruction is issued for a data set and the 
previous request issued for the same data set was an OPEN, 
ESETL, or unsuccessful SETL (no record found), a SETL B (key 
and data) is invoked automatically, and the first record in 
the data set is returned. 
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GET 
GET"—OBTA 


E 


OGICAL RECORD (QSA 


The GET macro instruction causes the system to retrieve the next 
record. Various modes are available and are specified in the 
DCB macro instruction. In the locate mode, the GET macro 
instruction locates the next sequential record or record segment 
to be processed. The system returns the address of the record 
in register 1 and places the length of the record or segment in 
the logical record length CDCBLRECL) field of the data control 
block. The DCBLRECL field is not changed when GET is used in 
XLRI processing. The user can process the record within the 
input buffer or move the record to a work area. 


In move mode, the GET macro instruction moves the next 
sequential record to the user's work area. This work area must 
be large enough to contain the largest logical record of the 
data set and its record-descriptor word (variable-length 
records). The system returns the address of the work area in 
register 1. The record length is placed in the DCBLRECL field. 
Move mode can be used only with simple buffering. 


In data mode, which is available only for variable-length 
spanned records, the GET macro instruction moves only the data 
portion of the next sequential record to the user's work area. 
The TYPE=P operand cannot be used with data mode. 


If the ISCII/ASCII translation routines are included when the 
operating system 1S generated, translation can be requested by 
coding LABEL=C€,AL) or €,AUL) in the DD statement, or it can be 
requested by coding OPTCD=Q in the DCB macro instruction or DCB 
subparameter of the DD statement. When translation is 
requested, all QSAM records whose record format CRECFM operand) 
is F, FB, D, DS, DB, DBS, or U are automatically translated from 
ISCII/ASCII code to EBCDIC code as soon as the input buffer is 
full. For translation to occur correctly, all input data must 
be in ISCII/ASCII code. 


The GET macro is written: 


[symbol]] GET {deb addre ss|pdab address) 


[,area ad 
[,TYPE=P] 





dcb address-——RX-Type Address, (2-12), or (1) 
The dcb address operand specifies the address of the data 
control block for the opened input data set being 
retrieved. 


pdab address-——RX-Type Address, (2-12), or (1) 
The pdab address operand specifies the sddrese of the 
parallel data access block for the opened input data sets 
from which a record is to be retrieved. When pdab address 
is used, TYPE=P must be coded. 


area address—RX-Type Address, (2-12), or (0) 
The area address operand specifies the address of an area 
into which the system is to move the record Cmove or data 
mode). The move, locate, or data mode can be used with 
QSAM, but must not be mixed within the specified data 
control block. If the area address operand is omitted in 
the move or data mode, the system assumes that register 0 
contains the area address. The following describes the 
operation of the three modes: 


Locate Mode: If locate mode has been specified in the data 
control block, the area address operand must be omitted. 
The system returns the address of the beginning buffer 
segment containing the record in register 1. If the data 
set is open for RDBACK, register 1 will point to the 
beginning of the record. 
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GET 


When retrieving variable-length spanned records, and the 
logical record interface (LRI) or extended logical record 
interface (XLRI) is not used, the records are obtained one 
segment at a time. The problem program must retrieve 
additional segments by issuing subsequent GET macro 
instructions, except when a logical record interface 15S 
requested (Cby specifying BFTEK=A in the DCB macro 
instruction or by issuing a BUILDRCD macro instruction, or 
by specifying DCBLRECL=0K or nnnnnKk in the DCB macro). In 
this case, the control program retrieves all record 
segments and assembles the segments into a complete logical 
record. The system returns the address of this record area 
in register 1. 


When the maximum logical record length is greater than 
32756 bytes, LRECL=X must be specified in the data control 
block, and the problem program must assemble the segments 
into a complete logical record. LRECL=X and/or segment 
mode processing is invalid for ISO/ANSI/FIPS spanned 
records, RECFM=DS or RECFM=DBS. 


Move Mode: If move mode has been specified in the data 
control block, the area address operand specifies the 
beginning address of an area in the problem program into 
which the system will move the record. If the data set is 
open for RDBACK, the area address operand specifies the 
ending address of an area in the problem program. 


If move mode has been specified in the data control block, 
do not code BFTEK=A. 


For variable-length spanned records, the system constructs 
the record-descriptor word in the first four bytes of the 
area and assembles one or more segments into the data 
portion of the logical record area; the segment descriptor 
words are removed. When XLRI mode 1s used, the record 
or word (RDW) in the record area is a fullword 
value. | 


Data Mode: If data mode has been specified in the data 
control block (data mode can be specified for 
variable-length spanned records only), the area address 
operand specifies the address of the area in the problem 
program into which the system will move the data portion of 
the logical record; a record-descriptor word is not 
constructed when data mode is used. The TYPE=P operand 
cannot be used with data mode. 


Extended Logical Record Interface (XLRIJ: When the GET 

macro 1s used in XLRI mode, the address returned in 
register 1 points to a fullword record length value. The 
three low-order bytes of the fullword indicate the length 
ree Serene logical record plus four bytes for the 
ullword. 


XLRI mode requires a record area to assemble a complete 
logical record from the segments that are read. 


If a record area is not automatically obtained by OPEN 
processing, you can construct a record by using the 
BUILDRCD wacro before issuing the OPEN. The DCB LRECL 
field indicates the length of the area in K units (1024 
bytes) required to contain the longest logical record of 
the data set. 


Note: If spanned records extend across volumes, errors may 
occur when using the GET macro if a volume that begins with 
a middle or last record segment is mounted first, or if an 
FEOV macro is issued followed by a GET macro. QSAM cannot 
begin reading from the middle of the record. (This applies 
to move mode, data mode, and locate mode if logical record 
interface is specified.) 
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GET 


GET ROUTINE EXITS 


TYPE=P—-Coded as shown : | 
The TYPE=P and PDAB address operands are used to retrieve a 
record from a queue of input data sets that have been 
opened. The open and close routines add and delete DCB 
addresses in the queue. The DCB from which a record is 
retrieved can be located from information in the PDAB. For 
this purpose, the formatting macro, PDABD, should be used. 


The end-of-data-set CEODAD) routine is given control if the end 
of the data set is reached; the data set must be closed. 
Issuing a GET macro instruction in the EODAD routine results in 
abnormal termination of the task. | 


The error analysis (SYNAD) routine is given control if the input 
operation could not be completed successfully. The contents of 
the general registers when control is given to the SYNAD exit 
routine are described in Appendix A, "Status Information 
Following an Input/Output Operation" on page 192. 
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GETBUF 


BUFFER (BDA BISAM, B ND _BSAM) 


The GETBUF macro instruction causes the control program to 
obtain a buffer from the buffer pool assigned to the specified 
data control block and to return the address of the buffer in a 
designated register. The BUFCB field of the data control block 
must contain the address of the buffer pool control block when 
the GETBUF macro instruction is issued. The system returns 
control to the instruction following the GETBUF macro 
instruction. The buffer obtained must be returned to the buffer 
pool using a FREEBUF macro instruction. 


The GETBUF macro is written: 


[symbol]| GETBUF dcb address 
»reqgister | 


dcb address—RX-Type Address, (2-12), or (1) 
The dcb address operand specifies the address of the data 
control block that contains the buffer pool control block 
address. 


register—(2-12) 
The register operand specifies one of the registers 2 
through 12 in which the system is to place the address of 
the buffer obtained from the buffer pool. If no buffer is 
available, the contents of the designated register are set 
to 0 
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GETPOOL 


GETPOOL—"BUILD A BUFFER POOL (BDAM, BISAM, BPAM, BSAM, QISAM, AND QSAM) 


The GETPOOL macro instruction causes a buffer pool to be 
constructed in a storage area acquired by the system. The 
system places the address of the buffer pool control block in 
the BUFCB field of the data control block. The GETPOOL macro 
instruction must be issued either before an OPEN macro 
instruction is issued or during the data control block exit 
routine for the specified data control block 


The GETPOOL macro is written: 


C[symbol]| GETPOOL dcb address 
»{number of buffers, buffer length! (0)} 


dcb address—RX-Type Address, (2-12), or (1) 
The dcb address operand specifies the address of the data 
control block to which the buffer pool is assigned. Only 
one buffer pool can be assigned to a data control block. 


number of buffers—symbol, decimal digit, absexp, or (2-12) 
The number-of-buffers operand specifies the number of 
buffers in the buffer pool to a maximum of 255. 


th—symbol, decimal digit, absexp, or (2-12) 
The buffer length operand specifies the length, in bytes, 
or each buffer in the buffer pool. The value specified for 
the buffer length must be a doubleword multiple; otherwise, 
the system rounds the value specified to the next higher 
doubleword multiple. The maximum length that can be 
specified is 32760 bytes. For QSAM, the buffer length must 
be at least as large as the value specified in the block 
size (DCBBLKSI) field in the data control block. 


(0)—Coded as shown 
The number of buffers and buffer length can be specified in 
general register 0. If €0) is coded, register 0 must 
contain the binary values for the number of buffers and 
buffer length as shown in the following illustration: 


Register 0 


Number of Buffers Buffer Length 





Bits: 


The following illustration shows the format of the buffer pool. 

The buffer pool and the associated storage area are released by 

issuing a FREEPOOL macro instruction after issuing a CLOSE macro 
instruction for the data set indicated in the specified data 


eontrol block 
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GETPOOL 


Area 
Address 
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Address of First Reserved Number Length 
Available for of of Each Buffer Buffer 
Buffer Flags Buffers Buffer 
14 | s _ 
Buffer Poo! Control Block Buffer Length Buffer Length 





(8 bytes) 





Area Length 
Area Length= (Buffer Length) x (Number of Buffers) +8 
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MSGDISP 
MSGDISP=“MESSAGE DISPLAY (DRIVE READY) 


The MSGDISP macro is used to load the message display on an IBM 


348 
inc 


MSGDISP—“DISPLAYING 


106 


The 


0 Magnetic Tape Subsystem. Functions for the display 
lude: 


Displaying a ready message 

Mount volume! 

Demount volume? 

Reset display! 

Verify volume! 

Generalized display! 

i For an explanation of these MSGDISP macro functions, see 

stem-Data Administrati 

EADY MESSAG 

MSGDISP macro is written: 


[symbol] RDY 


» DCB=addr 





RDY 


C>TXT={£' msaqtxt' laddr}]1 


specifies that text supplied in the TXT parameter will be 
displayed in positions 2 through 7 of the display while the 
data set is open. The display will be steady (not 
flashing) and will be enclosed in parentheses. The display 
will also be written to the tape pool console (routing code 
3, descriptor code 7) 


DCB=addr 


TXT 


specifies the address of a DCB opened to a data set on the 
mounted volume. If multiple devices are allocated, the 
message display will be directed to the one containing the 
volume currently in use. 


Note: If multiple devices or multiple volumes are 
allocated, you may update a message display after an 
end-of-volume condition by using the EOV exit specified in 
a DCB exit list. In the case of a concatenated data set 
with unlike characteristics, the open DCB exit may be used 
to update the display. 


addr-——RX-Type address, A-Type address, or (2-12) 
specifies an in-storage address of the opened DCB. 


={'msgtxt' laddr} 


specifies aS many as six characters to be displayed in 
positions 2 through 7. If TXT is not specified, blanks 
will be displayed. 


msgqtxt' 
specifies the l- to 6-character text. The text must be 
enclosed in apostrophes. 


addr—RX-Type address, A-Type address, or (2-12) 
specifies an in-storage address of an area containing 
the text to be displayed. 
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SGDISP"=~LIS 


OR 





MSGDISP 


The list form of the MSGDISP macro is written: 


[RDY] 
[,DCB=addr] 


»>MNF=L 
[>TXT=€ 'msgtxt' laddr}1 





RDY 
specifies that text supplied in the TXT parameter will be 
displayed in positions 2 through 7 while a data set is 
open. The display will be steady (not flashing) and will 
be enclosed in parentheses. The display will also be 
written to the tape pool console Crouting code 3, 
descriptor code 7) 


DCB=addr 
specifies the address of a DCB opened to a data set on the 
mounted volume. If multiple devices are allocated, the 
message display will be directed to the one containing the 
volume currently in use. 


Note: If multiple devices or multiple volumes are 
allocated, you may update a message display after an 
end-of-volume condition by using the EOV exit specified in 
a DCB exit list. In the case of a concatenated data set 
with unlike characteristics, the open DCB exit may be used 
to update the display. 


addr~~A-Type address 
specifies an in-storage address of the opened DCB. 


MF=L 
specifies the list form of MSGDISP. This generates a 
parameter list that contains no executable instructions. 
The list can be used as input to and can be modified by the 
execute form. 


TXT={ 'msatxt' |laddr} 
specifies as many as six characters to be displayed in 
positions 2 through 7. If TXT is not specified, blanks 
will be displayed. 


"msqtxt' 
specifies the 1- to 6-character text. The text must be 
enclosed in apostrophes. 


addr~~A-Type address 


specifies an in-storage address of an area containing 
the text to be displayed. 


Macro Instruction Descriptions 107 


MSGDISP | 
MSGDISP——EXECUTE FORM 


The execute form of the MSGDISP macro is written: 


RDY | 
[ ? DCB=addr] 


»MF=(E,addr) 
{,TXT={ "msq txt! laddr}] 








RDY 
specifies that text supplied in the TXT parameter will be 
displayed in positions 2 through 7 while a data set is 
open. The display will be steady (not flashing) and will 
be enclosed in parentheses. The display will also be 
written to the tape pool console Crouting code 3, 
descriptor code 7). 


DCB=addr 
specifies the address of a DCB opened to a data set on the 
mounted volume. If multiple devices are allocated, the 
message display will be directed to the one containing the 
volume currently in use. 


Note: If multiple devices or multiple volumes are 
allocated, you may update a message display after an 
end-of-volume condition by using the EOV exit specified in 
a DCB exit list. In the case of a concatenated data set 
with unlike characteristics, the open DCB exit may be used 
to update the display. 


addr—RX-Type address, A-Type address, or (2-12) 
specifies an in-storage address of the opened DCB. 


MF=(E,addr ) 
specifies that the execute form of MSGDISP and an existing 
parameter list will be used. 


addr—RX-Type address, (1), or (2-12) 
specifies an in-storage address of the parameter list. 


TXT={€ 'msgtxt' Jaddr} | 
specifies as many as six characters to be displayed in 
positions 2 through 7. If TXT is not specified, blanks 
will be displayed. 


"msagtxt' 
specifies the l1- to 6-character text. The text must be 
enclosed in apostrophes. 


addr—RxX-Type address, A-Type address, or (2-12) 


specifies an in-storage address of an area containing 
the text to be displayed. 
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MSGDISP 
COMPLETION CODES 


_ When the system returns control to your problem program, the 
_- low-order byte of register 15 contains a return code; the 
| low-order byte of register 0 contains a reason code: 


Return Reason 

Code (15) Code (0) Meaning 

00 CX!'00'*) Successful completion 

0G (X'04') Device does not support MSGDISP 


08 (X'08') 01 (X'01') Invalid parameter 

08 (X'08') 02 (X*02') Invalid DCB or DEBCHK error 
08 (X'08') 03 €X'03"') Environmental error 

08 (X'08') 04 €X'04"') Authorization violation 

08 (CX*08') 05 €X'05') Invalid UCB 

08 (€X'08") 06 (X'06') Invalid request 

08 (X'08!') 11 CX'OB"') Unsuccessful ESTAE macro call 
08 (X'08!') 12 (X'0C"*) Unsuccessful GETMAIN request 


l2 (X'0c') Input/output error CI/0 Supervisor 
posted the request as an error) 


Note: An I/0 error occurs for load 


display if the drive display has a 
hardware failure. 
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NOTE 


NOTE-~PROVID 


110 


IVE POSITIO BPAM AND BSAM——TAPE AND DIRECT ACCESS ONLY) 


The NOTE macro instruction causes the system to return the 
position of the last block read from or written into a data set. 
All input and output operations using the same data control 
block must be tested for completion before the NOTE macro 
instruction is issued. 


The capability of using the NOTE macro instruction is 
automatically provided when a partitioned data set is used 
CDSORG=PO0O or POU), but, when a sequential data set (CBSAM) is 
used, the use of NOTE/POINT macro instructions must be indicated 
in the MACRF operand of the DCB macro instruction. 


The NOTE macro is written: 


[symbol]] NOTE dcb address 
L, TYPE={ABS | REL} ] 


dcb address—RX-Type Address, (2-12), or (1) 
The dcb address operand specifies the address of the data 
control block opened for the partitioned or sequential data 
set being processed. 


TYPE={ABS | REL} 
ABS 





specifies that, after NOTE executes successfully 
(contents of register 15 is 0), register 0 contains 
the physical block identifier for the next data block 
waiting for transfer between main storage and the 
control unit buffer, and register 1 contains the 
physical block identifier of the next data block 
waiting for transfer between the control unit buffer 
and the tape drive. 


If you subtract the low-order 20 bits of register 1 
from the low-order 20 bits of register 0, the 
remainder is the number of data blocks left in the 
control unit buffer. A negative remainder means the 
buffer is in read mode, and a positive remainder means 
the buffer is in either write or read-backward mode. 

A zero remainder means that no data is buffered. 


causes the system to return the relative position of 
the last block read from or written into a data set. 
The position, in terms of the current volume, is 
returned in register 1 as follows: 


Magnetic Tape 


The block number is in binary, right-adjusted in 
register 1 with high-order bits set to zero. Do not 
use a NOTE macro instruction for tapes without 
standard labels when: 


a The data set 1S opened for RDBACK (specified in 
the OPEN macro instruction) or 


e The DISP parameter of the DD statement for the 
data set specifies DISP=MOD. 
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COMPLETION CODES 





NOTE 
Direct Access Device 
TTR2 format, where: 
TT ais a 2-byte relative track number. 


R 1s a l-byte block Crecord) number on the track 
indicated by TT 


z 1s a byte set to zero. 
The NOTE macro instruction cannot be used for SYSOUT data sets. 


Note: When a direct access device is being used, the amount of 
remaining space on the track is returned in register 0 if a NOTE 
macro instruction follows a WRITE macro instruction; if a NOTE 
macro instruction follows a READ or POINT macro instruction, the 
track capacity of the direct access device is returned in 
register Q. 


When the system returns control to your problem program and you 
have specified the ABS parameter, the low-order byte of register 
15 contains a return code; the low-order byte of register 0 
contains a reason code: 


Return Reason 

Code (15) Code (0) Meaning 

00 CX'O00*) Successful completion. 

04 (X'04') Device does not support block 
identifier. 


08 (X'08') O01 €X'01') Incorrect parameter. 

08 €X'08") 02 (X'02') Incorrect DCB or a DEBCHK error. 
08 CX'08") 03 €X*'03') Environmental error. 

08 (X'08") 11 (X'OB') Unsuccessful call to ESTAE macro. 
08 CX'08") 12 (X'0C") Unsuccessful GETMAIN request. 

12 (X'0C") Input/output error. 
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OPEN 
OPEN=~LOGICALLY CONNECT A DATA SET (BDA BISA BPAM, BSAM, QISAM, AND QSA 


The OPEN macro instruction causes the specified data control 
block €s) to be completed and the data set(s) identified in the 
data control block(s) to be prepared for processing. Input 
labels are analyzed and output labels are created. Control is 
given to exit routines as specified in the data control block 
exit list. The processing method Coption 1) is designated to 
provide correct volume positioning for the data set and define 
the processing mode CINPUT, OUTPUT, and so forth) for the data 
set(s). Final volume positioning Cwhen volume switching occurs) 
can be specified Coption 2) to override the positioning implied 
by the DD statement DISP parameter. Option 2 applies only to 
volumes in a multivolume data set other than the last volume. 
Any number of data control block addresses and associated 
options may be specified in the OPEN macro instruction. 


The maximum number of DCBs that can be concurrently open to one 
unit is 127 


If associated data sets for a 3525 card punch are being opened, 
all associated data sets must be open before an I/0 operation is 
initiated for any of the data sets. For a description of 


Ope oon oe data sets, see OS and OS/VS Programming Support for 
he IBM 3505 Card Reader and IBM 3525 Card Punch. 


To support DEB validity checking, an OPEN macro instruction must 
be issued for every data extent block (DEB) created. 


The standard form of the OPEN macro instruction is written as 
follows (the list and execute forms are shown following the 
description of the standard form): 


[symbol (deb address, loptions)]>...) 
»CTYPE=J] 
» CMODE=24/31] 





dcb_ address—A-Type Address or (2-12) 
ee dcb address operand(s) specifies the address of the 
data control block(s) for the data set(s) to be prepared 
for processing. 


options 
The options operands shown in the following illustration 
indicate the volume positioning available based on the 
device type and access method being used. If option 1 is 
omitted, INPUT is assumed. If option 2 is omitted, DISP is 
assumed. Option 1 must be coded if option 2 is coded. 
Option 2 1S ignored for SYSIN and SYSOUT data sets. 
Options 1 and 2 are ignored for BISAM and QISAM Cin the 
scan mode), and the data control block indicates the 
el peal OUTPUT or OUTIN must be specified when creating 
a data set. 
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Magnetic Tape 


DEVICE TYPE 


Direct Access 





OPEN 


Other Types 





Access 

Method 
Option 1] 

QSAM [INPUT ] 
[EXTEND] 
[OUTPUT] 
[RDBACK] 

BSAM [INPUT 1] 
[EXTEND] 
[OUTINX] 
[OUTPUT] 
[INOUT ] 
[OUTIN ] 
[RDBACK] 

QISAM = 

Load Mode 

BPAM, a 

BDAM 


Option 2 Option 1 Option 2 Option 1 Option 2 
{,REREAD] [INPUT ] [,REREAD] [INPUT ] = 
[,LEAVE ] [EXTEND] [,LEAVE ] [LEXTEND] 
{,DISP ] [OUTPUT] [C,DISP ] [OUTPUT] 
CUPDAT] 
[,REREAD] [INPUT 1] [,REREAD] [INPUT ] = 
{,LEAVE ] [EXTEND] [£,LEAVE ] [OUTPUT] 
[,DISP ] [OUTINX] [C,DISP ] [OUTPUT] 
[OUTPUT] [OUTPUT] 
C[INOUT ] 
[OUTIN ] 
[UPDAT ] 
—— COUTPUT] — vee — 
[EXTEND] 
— [INPUT ] = — — 
[OUTPUT] 
[UPDAT ] 


The following describes the options shown in the preceding 


illustration. 


Option 1 
EXTEND} 


INPUT 
INOUT? 


OUTPUT 


OUTIN?} 


OUTINX? 


RDBACK 


UPDAT 


All option operands are coded as shown. 
Meaning 


The data set is treated as an OUTPUT data set, except 

that records will be added to the end of the data set 

regardless of what was specified on the DISP parameter 
of the DD statement. 


Input data set. 


The data set is first used for input and, without 
reopening, 18 used as an output data set. The data 
set is processed as INPUT if it is a SYSIN data set or 
if LABEL=(,,,IN) 1s specified in the DD statement. 


Output data set (for BDAM, OUTPUT is equivalent to 
UPDAT). 


The data set is first used for output and, without 
reopening, 1S used as an input data set. The data set 
1s processed as OUTPUT if it is a SYSOUT data set or 
if LABEL=(,,,0UT) is specified in the DD statement. 


The data set is treated as an OUTIN data set, except 
that records will be added to the end of the data set 
regardless of what was specified on the DISP parameter 
of the DD statement. 


Input data set, positioned to read backward. 


Note: Variable-length records cannot be read 
backward. 


Data set to be updated in place or, for BDAM, blocks 
are to be updated or added. 


1 These options are not allowed for ISO/ANSI/FIPS Version 3 
tape processing. 
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OPEN 


Optio 
LEAVE 


REREA 


DISP 


Note: 
the c 
proce 


The L 
tape 
TYPE= 
execu 


TYPE= 


n2 Meaning 


Positions the current tape volume to the logical end 

of the data set when volume switching occurs. If fo 
processing was forward, the volume is positioned to . 
the end of the data set; if processing was backward i / 
CRDBACK), the volume is positioned to the beginning of 

the data set 


D Positions the current tape volume to reprocess the 
data set when volume switching occurs. If processing 
was forward, the volume 1S positioned to the beginning 
of the data set; if processing was backward (RDBACK), 
the volume 18S positioned to the end of the data set. 


Specifies that a tape volume is to be disposed of in 
the manner implied by the DD statement associated with 
the data set. Direct access volume positioning and 
disposition are not affected by this parameter of the 
OPEN macro instruction. There are several 
dispositions that can be specified in the DISP 
parameter of the DD statement; DISP can be PASS, 
DELETE, KEEP, CATLG, or UNCATLG. This option has 
Significance at the time an end-of-volume condition is 
encountered only when DISP is PASS. The end-of-volume 
condition may result from the issuance of an FEOV 
macro instruction or may be ne result of reaching the 
end of a volume. 


If DISP is PASS in the DD statement, the tape will be 
spaced forward to the end of the data set on the 
current volume. 


If any DISP option is coded in the DD statement, 
(except when DISP is PASS), the resultant action at 
the time an end-of-volume condition arises depends on 
(1) how many tape units are allocated to the data set 
and €2) how many volumes are specified for the data 
set in the DD statement. This is determined by the 
UNIT and VOLUME parameters of the DD statement “Sy 
associated with the data set. If the number of 

volumes is greater than the number of units allocated, 

the current volume will be rewound and unloaded. 

the number of volumes is less than or equal to the 

number of units, the current volume is merely rewound. 


When the DELETE option is specified, the system waits for 
ompletion of the rewind operation before it continues 
SSing subsequent reels of tape. 


EAVE and REREAD options are meaningless except for magnetic 
and CLOSE TYPE=T. Any other options specified for CLOSE 

T besides LEAVE and REREAD will be treated as LEAVE during 
tion. 


J 

You can code OPEN TYPE=J to specify that, for each data 
control block referred to, you have supplied a job file 
control block (CJFCB) to be used during initialization. A 
JFCB is an internal representation of information ina DD 
statement. This option, because it is used in conjunction 
with modifying a JFCB, should be used only by the system 
programmer or only under the system programmer's 
supervision. MODE=31 is not allowed when TYPE=J is 
specified. 


When you specify TYPE=J, you must also supply a DD 
statement. The amount of information in the DD statement 
1s subject to discretion, but you must specify the device 
allocation and a ddname that corresponds to the associated 
data control block DCBDDNAM field. 


For more detailed ose alg on using TYPE=J, see q > 
System—Data Admi : ‘‘*e Y 
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MODE= 


Note: 








OPEN 


24131 


You can code OPEN MODE=31 to specify a long form parameter 
list that will be able to contain 31-bit addresses. 
MODE=31 is not permitted if TYPE=J is specified. You must 
be operating in 3l-bit addressing mode in order to use the 
3l-bit addresses in the long form parameter list. The 
default, MODE=24, will specify a standard form parameter 
list with 24-bit addresses. If TYPE=J is specified, you 
must use the standard form parameter list. 


The standard form parameter list is 4 bytes per entry. The 
standard form parameter list must reside below 16M, but the 
calling program may be above 16M. It 18S assumed that all 
ACBs and DCBs are below 16M. 


The long form parameter list can reside above or below 16M. 
Fach entry is 8 bytes long. Option information is contained 
in the first byte, zeros in the next three bytes, and the 
address of the ACB or DCB is contained in the last four 
bytes. Although the ACB or DCB address is contained ina 
G-byte field, the DCB must be below 16M. Except for VSAM 
or VTAM ACBs, all ACBs must also be below 16M. Therefore, 
the leading byte of the ACB or DCB address must contain 


zeros. If the byte contains something other than zeros, an 
IEC190I message will be issued and the data set will not be 
opened. The program will not be abnormally terminated 


unless an attempt is made to read to or write from the data 
set. 


Note: It is up to you to Keep the mode specified in the 
MF=L and MF=E versions of the OPEN and CLOSE macros 
consistent. Errors and unpredictable results will occur if 
the specified modes are inconsistent. 


After the OPEN macro instruction has been executed, bit 3 


of the DCBOFLGS field in the data control block is set to l if 
the data control block has been opened successfully, but is set 


to 0 
Note: 


if the data control block has not been opened successfully. 


To use the OPEN macro instruction supplied in the MVS/XA 


macro library on MVS/370, use the SPLEVEL macro instruction. 
You must use the SPLEVEL macro instruction to ensure that the 
MVS/XA version of the OPEN macro instruction executes 
successfully on MVS/370 DFP. For information on how to use the 


SPLEVEL macro, see System Macros and Facilities, Volume 2. 
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OPEN 





The following errors cause the results indicated: 


Attempting to open a data control No action. 
block that is already open. 


Attempting to open a data control Unpredictable. 
block when the dcb address | 
operand does not specify the 

address of a data control block. 






















Attempting to open a DCB for a 
printer with the UCS feature and 
an error occurred when attempting 
to block or unblock data checks 
(specified by the presence or 
absence of OPTCD=U in the DCB 
macro). 












Task abnormally 
terminated. 










A "DD STATEMENT MISSING" 
message is issued. An 

attempt to use the data 
set causes unpredictable 
results. 


Attempting to open a data control 
block when a corresponding DD 
statement has not been provided. 






The last of these errors can be detected by testing bit 3 of the 
DCBOFLGS field in the data control block. Bit 3 is set to 0 in 
the case of an error and can be tested by the sequence: 


™ DCBOFLGS,X'10! 

BZ ERRORRTN (Branch to user's error routine) 
Executing the two instructions shown above requires writing a 
DCBD macro instruction in the program, and a base register must 


be defined with a USING statement before the instructions are 
executed. 
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0 


EN=~LIS 


OR 





OPEN 


The list form of the OPEN macro instruction is used to construct 
a data management parameter list. Any number of operands (data 
control block addresses and associated options) can be 
specified. 


The list consists of a one-word entry for each DCB in the 
parameter list; the high-order byte is used for the options and 
the three low-order bytes are used for the DCB address. The end 
of the list is indicated by a 1 in the high-order bit of the 
last entry's option byte. The length of a list generated by a 
list form instruction must be equal to the maximum length list 
required by any execute form instruction that refers to the same 
list. A maximum length list can be constructed by one of two 
methods: 


e Code a list-form instruction with the maximum number of 
parameters that are required by an execute form instruction 
that refers to the list. 


® Code a maximum length list by using commas ina list-form 
instruction to acquire a list of the appropriate size. For 
example, coding OPEN (,,,,,,,,,),MF=L would provide a list 
of five fullwords (five dcb addresses and five options). 


Entries at the end of the list that are not referenced by the 
execute-form instruction are assumed to have been filled in when 
the list was constructed or by a previous execute-form 
instruction. Before using the execute- form instruction, you may 
shorten the list by placing a l in the high-order bit of the 
last DCB entry to be processed. 


A zeroed work area on a fullword boundary is equivalent to OPEN 
€, CINPUT,DISP),...3,MF=L and can be used in place of a list-form 
instruction. The high-order bit of the last DCB entry must 
contain a 1 before this list can be used with the execute-form 
instruction. 


A parameter list constructed by an OPEN, list-form, macro 
instruction can be referred to by either an OPEN or CLOSE 
execute form instruction. 


The description of the standard form of the OPEN macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
which operands are completely optional and those required in at 
least one of the pair of list and execute forms. The format 
description below indicates the optional and required operands 
in the list form only. 


The list form of the OPEN macro is written: 


(ZLdcb address], loptions)1,...) 
»MF=L 


[,TYPE=J] 
[,MODE=24/31] 





dcb address-——A-Type Address 


MF=L—Coded as shown 
The MF=L operand specifies that the OPEN macro instruction 
1s used to create a data management parameter list that is 
referenced by an execute form instruction. 


TYPE=J 
You can code OPEN TYPE=J to specify that, for each data 
control block referred to, you have supplied a job file 
control block CJFCB) to be used during initialization. A 
JFCB is an internal representation of information in a DD 
statement. This option, because it is used in conjunction 
with- modifying a JFCB, should be used only by the system 
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OPEN 


programmer or only under the system programmer's 
supervision. MODE=31 is not allowed when TYPE=J is 
specified. | 


When you specify TYPE=J, you must also supply a DD 
statement. The amount of information in the DD statement 
is subject to your discretion, but you must specify the 
device allocation and a. ddname that corresponds to the 
associated data control block DCBDDNAM field. 


For more detailed information on using TYPE=J, see 
System—Data Administ fe) 


MODE=24131 


You can code OPEN MODE=31 to specify a long form parameter 
list that will be able to contain 31-bit addresses. 
MODE=31 is not permitted if TYPE=J is specified. You must 
be operating in 3l-bit addressing mode in order to use the 
3l-bit addresses in the long form parameter list. The 
default, MODE=24, will specify a standard form parameter 
list with 24-bit addresses. If TYPE=J is specified, you 
must use the standard form parameter list. | 


The standard form parameter list is 4 bytes per entry. The 
standard form parameter list must reside below 16M, but the 
calling program may be above 16M. It is assumed that all 
ACBs and DCBs are below 16M. 


The long form parameter list can reside above or below 16M. 
Each entry is 8 bytes long. Option information is contained 
in the first byte, zeros in the next three bytes, and the 
address of the ACB or DCB is contained in the last four 
bytes. Although the ACB or DCB address is contained ina 
G-byte field, the DCB must be below 16M. Except for VSAM 
or VTAM ACBs, all ACBs must also be below 16M. Therefore, 
the leading byte of the ACB or DCB address must contain 


zeros. If the byte contains something other than zeros, an 
IEC190I message will be issued and the data set will not be 
opened. The program will not be abnormally terminated 


unless an attempt 1S made to read to or write from the data 
set. 


Note: It is up to you to Keep the mode specified in the 
MF=L and MF=E versions of the OPEN and CLOSE macros 
consistent. Errors and unpredictable results will occur if 
the specified modes are inconsistent. 
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OPEN 
OPEN“~EXECUTE FOR 


A remote data management parameter list is used in, and can be 
modified by, the execute form of the OPEN macro instruction. 
The parameter list can be generated by the list form of either 
an OPEN or CLOSE macro instruction. 





The description of the standard form of the OPEN macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
which operands are totally optional and those required in at 
least one of the pair of list and execute forms. The format 
description below indicates the optional and required operands 
in the execute form only. 


The execute form of the OPEN macro is written: 


[(lLdcb address], loptions)],...)1 
»MF=(E,{data Wanacsuent list address|(1)}) 


[> TYPE=J] 
[, MODE=24131] 





dcb address——RX-Type Address or (2-12) 
MF=(E,{data management list address] (1)} 


This operand specifies that the execute form of the OPEN 
macro instruction is used, and an existing data management 
parameter list (created by a list-form instruction) is 
used. The MF= operand is coded as follows: 


E—Coded as shown 
ata managem j address——RX-Type, (2-12), (1) 


TYPE=J 
eg You can code OPEN TYPE=J to specify that, for each data 

( control block referred to, you have supplied a job file 
control block (CJFCB) to be used during initialization. A 
JFCB is an internal representation of information ina DD 
statement. This option, because it 1s used in conjunction 
with modifying a JFCB, should be used only by the system 
programmer or only under the system programmer's 
supervision. MODE=31 is not allowed when TYPE=J is 
specified. 


When you specify TYPE=J, you must also supply a DD 
statement. The amount of information in the DD statement 
1s subject to your discretion, but you must specify the 
device allocation and a ddname that corresponds to the 
associated data control block DCBDDNAM field. 


For more detailed information on using TYPE=J, see 
stem— dminis ] : 


MODE=24]31 
You can code OPEN MODE=31 to specify a long form parameter 
list that will be able to contain 3l-bit addresses. 
MODE=31 is not permitted if TYPE=J is specified. You must 
be operating in 3l-bit addressing mode in order to use the 
3l-bit addresses in the long form parameter list. The 
default, MODE=24, will specify a standard form parameter 
list with 24-bit addresses. If TYPE=J is specified, you 
must use the standard form parameter list. 


The standard form parameter list is 4 bytes per entry. The 
standard form parameter list must reside below 16M, but the 
calling program may be above 16M. It is assumed that all 
ACBs and DCBs are below 16M. 


The long form parameter list can reside above or below 16M. 
Each entry is 8 bytes long. Option information is contained 
in the first byte, zeros in the next three bytes, and the 
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address of the ACB or DCB is contained in the last four 
bytes. Although the ACB or DCB address is contained in a 
G-byte field, the DCB must be below 16M. Except for VSAM 
or VTAM ACBs, all ACBs must also be below 16M. Therefore, 
the leading byte of the ACB or DCB address must contain 
zeros. If the byte contains something other than zeros, an 
IEC1I90I message will be issued and the data set will not be 
opened. The program will not be abnormally terminated 
ee an attempt is made to read to or write from the data 
set. 


Note: It is up to you to keep the mode specified in the 
MF=L and MF=E versions of the OPEN and CLOSE macros 
consistent. Errors and unpredictable results will occur if 
the specified modes are inconsistent. 
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PDAB 
DAB-—CONSTRUC ALLE A CCESS BLOC S 


ae The PDAB macro instruction is used in conjunction with the GET 

= CTYPE=P) macro instruction. It defines an area in the problem 

: program where the open and close routines build and maintain a 
queue of DCB addresses for use by the get routine. 


The parallel data access block is constructed during the 
assembly of the problem program. The MAXDCB operand must be 
coded in the PDAB macro instruction, because it cannot be 
supplied from any other source. 


Certain data set characteristics prevent a DCB address hee 
being available on the queue—see the description of QSAM 


parallel input processing in Data Administration Guide. 


The PDAB macro is written: 


[symbol]| PDAB MAXDCB=dcb number 


MAXDCB=absexp Cmaximum value is 32767) 
specifies the maximum number of DCBs that you require in 
the queue for a GET request. 


Note: The number of bytes required for PDAB is equal to 
24+8n, where nis the value of the keyword, MAXDCB. 
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PDABD 
DABD~"PROVIDE 


MBOLIC REFERENCE TO A ALLE CCESS BLOC SA 


The PDABD macro instruction is used to generate a dummy control 


section that provides symbolic names for the fields in one or 
‘ more parallel data access blocks. The names, attributes, and 


descriptions of the fields appear in Appendix G, “PDABD Symbolic 
Field Names™ on page 219. 


The name of the dummy control. section generated by a PDABD macro 
instruction is IHAPDAB. The use of any of the symbolic names 
provided by the dummy section should be preceded by a USING 
instruction specifying IHAPDAB and a dummy section base register 
containing the address of the actual parallel data access block. 
The PDABD macro instruction should only be used once within any 
assembled module; however, the resulting symbolic names can be 
used for any number of parallel data access blocks by changing 
the address in the dummy section base register. The PDABD macro 
instruction can be coded at any point ina control section. If 
coded at any point other than at the end of a control section, 
the control section must be resumed by coding a CSECT 
instruction. 


The PDABD macro is written: 
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POINT 
OINT-—POS ON TO EL VE BLOC BPA ND BSAM="TA ND DIREC CCESS ONLY) 


The POINT macro starts the next READ or WRITE operation at the 
specified data set block on the current volume. Before you 
issue POINT macro, ensure that all input and output operations 
using the same data control block are tested for completion. If 
you are processing a data set that has been opened for UPDAT, 
you must issue a READ macro immediately after the POINT macro. 
If you are processing an output data set, you must issue a WRITE 
macro immediately after the POINT macro before you close the 
data set, unless you have already issued the CLOSE macro (with 
TYPE=T specified) before the POINT macro. 





Note: If you specify the TYPE=T option in the CLOSE macro and 
you do not issue a WRITE macro before you close the data set, 
use the end-of-data location that is determined by TCLOSE. 


The POINT macro is written: 


[symbol]| POINT dcb address 


»block address 


» LTYPE={ABS| REL} 1 





dcbh address-——RX-Type Address, (2-12), or (1) 
The dcb address operand specifies the address of the data 
control block for the opened data set that is to be 
positioned. 


block address—RxX-Type Address, (2-12), or (0) 
The block address operand indicates which block in the data 
set is to be processed next. 


For an IBM 3480 Magnetic Tape subsystem, when TYPE=ABS is 
specified, the block address operand specifies the address 
of a fullword on a fullword boundary that contains the 
aa physical block identifier of the block in the data set that 
( is to be processed next. This physical block identifier is 
provided as output from a prior execution of the NOTE 
macro. 


When TYPE=REL is specified or defaults, the block address 
operand specifies the address of a fullword on a fullword 
boundary that contains the relative address of the block in 
the data set that is to be processed next. The relative 
address 18S specified as follows: 


Magnetic Tape: The block number is in binary and is 
right-adjusted in the fullword with the high-order bits set 
to 0; add 1 if reading tape backward. Do not use the POINT 
macro instruction for tapes without standard labels when: 


e The data set is opened for RDBACK, or. 
e The DD statement for the data set specifies DISP=MOD 


If OPTCD=H is indicated in the data control block, the 
POINT macro instruction can be used to perform record 
positioning on DOS tapes that contain embedded checkpoint 
records. Any embedded checkpoint records that are 
encountered during the record positioning are bypassed and 
are not counted as blocks spaced over. OPTCD=H must be 
specified ina job control language DD statement. Do not 
use the POINT macro instruction to backspace DOS 7-track 
tapes that are written in data convert mode and that 
contain embedded checkpoint records. 


Note: When an end-of-data condition is encountered on 
magnetic tape, you must not issue the POINT macro 
instruction unless you have first repositioned the tape for 
processing within your data set; otherwise, the POINT 
operation will be unsuccessful. (CIssuing CLOSE TYPE=T is 
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POINT 


COMPLETION CODES 


an easy method to use to accomplish repositioning in your 
EODAD routine. ) 


Direct Access Device: The fullword specified in the block 
address operand contains: the relative track address (Cin the 
form TTRz), where: 


TT ais a 2-byte relative track number. 

R is a l-byte block Crecord) number on the track 
indicated by TT. 

z is a byte set to 0; it may also be set to 1 to retrieve 
the block following the TTR block. 


Note: The first block of a magnetic tape data set is 
always specified by the hexadecimal value 00000001. The 
first block of a direct access device data set can be 
specified by either hexadecimal 00000001 or 00000100 (see 
the preceding description of TTR2). 


TYPE={ABS|REL} 
indicates whether the block address operand is a physical 
block identifier or a relative address. 


ABS 
indicates that the block address operand specifies an 
address of a fullword on a fullword boundary 
containing a physical block identifier of the block in 
the data set that is to be processed next. 

REL 


indicates that the block address operand specifies an 
address of a fullword on a fullword boundary 
containing the relative address of the block in the 
data set that is to be processed next. 


POINT cannot be used for SYSIN or SYSOUT data sets. 


If the volume cannot be positioned correctly or if the block 
identification is not of the correct format, the error analysis 
CSYNAD) routine is given control when the next CHECK macro 
instruction is executed. 


When the system returns control to your problem program and you 
have specified the ABS parameter, the low-order byte of register 
15 contains a return code; the low-order byte of register 0 
contains a reason code: 


Return Reason 
Code (15) Code (0) Meaning 


00 (€X*'00') Successful completion. 
04 €X'04') Device does not support block 
identifier. 


08 CX'08') 01 CX'O01') Incorrect parameter. 

08 (X*'08") O02 €X'02') Incorrect DCB or a DEBCHK error. 
08 CX'08") 03 (X'03') Environmental error. 

08 (€X*'08') 11 (X*'0B') Unsuccessful call to ESTAE macro. 
08 (X*08") 12 (X'0C') Unsuccessful GETMAIN request. 

12 €X"0C') Input/output error. 
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PRTOV 


PRTOV-—-TEST FOR PRINTER CARRIAGE OVERFLOW CBSAM AND SSAN— ONLINE PRINTER AND 3525 
CARD PUNCH RINT FEATURE 


( The PRTOV macro instruction is used to control the page format 

a for an online printer when carriage control characters are not 
being used or to supplement the carriage control characters that 
are being used. 


The PRTOV macro instruction causes the system to test for an 
overflow condition on the specified channel Ceither channel 9 or 
channel 12) of the printer carriage control, and either skip the 
printer carriage to the line corresponding to channel 1, or 
transfer control to the exit address, if one is specified. 
Cverflow is detected after printing the line that follows the 
line corresponding to channel 9 or channel 12. The PRTOV macro. 
should be issued each time you want the system to test for an 
overflow condition. 


When the PRTOV macro instruction 1s used with a 3525 card punch, 
print feature, channel 9 or 12 can be tested. If an overflow 
condition occurs, control is passed to the overflow exit routine 
if the overflow exit address is coded, or a skip to channel 1 
(first print-line of the next card) occurs. 


When requesting overprinting (for example, to underscore a 
line), the PRTOV macro instruction is issued before the first 
PUT or WRITE macro instruction only. The PRTIOV macro 
instruction should be issued only when the device type iS an 
online printer. PRIOV cannot be used to request overprinting on 
the 3525. Overprinting cannot be performed on the 3800. 


The PRTOV macro is written: 





[symbol]} PRTOV dcb address 
»{9]12} 
( [,overflow exit address] 


dcb address—RX-Type Address or (2-12) 
The dcb address operand specifies the address of the data 
control block opened for output to an online printer or 
3525 card punch with a print feature. 


9—Coded as shown 

1l2—Coded as shown 
These operands specify the channel that is to be tested by 
the PRTOV macro instruction. For an online printer, 9 and 
12 correspond to carriage control channels 9 and 12. For 
the 3525 card punch, 9 corresponds to print line number 17, 
and 12 corresponds to print line number 23. More detail 
about the card print-line format is included in OS and 
OS/VS Programmi Su r fe) e JB 0 eade 

BM 5 Ca unch. 


overflow exit address—RX-Type Address or (2-12) 
The overflow exit address operand specifies the address of 
the user-supplied routine to be given control when an 
overflow condition is detected on the specified channel. 
If this operand is omitted, the printer carriage skips to 
the first line of the next page or the 3525 skips to the 
first line of the next card before executing the next PUT 
or WRITE macro instruction. 
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PRTOV 


When the overflow exit routine is given control, the contents of 
the registers are as follows: 


Register Contents 


0 and 1 The contents are destroyed. 

oo sas The same contents as before the macro instruction was 
executed. 

14 Return address. 

15 Overflow exit routine address. 
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PUT 


OGIC ECORD S$ 


The PUT macro instruction causes the system to write a record 
into an indexed sequential data set. If the move mode is used, 
the PUT macro instruction moves a logical record into an output 
buffer from which it is written. If locate mode is specified, 
the address of the next available output buffer segment is 
available in register 1 after the PUT macro instruction is 
executed. The logical record can then be constructed in the 
buffer for output as the next record. The records are blocked 
by the system (if specified in the data control block) before 
being placed in the data set. The system uses the length 
specified in the record length (DCBLRECL) field of the data 
control block as the length of the record currently being 
written. When constructing blocked variable-length records in 
the locate mode, the problem program may either specify the 
maximum record length once in the DCBLRECL field of the data 
control block or provide the actual record length in the 
DCBLRECL field before issuing each PUT macro instruction. Use 
of the maximum record length may result in more but shorter 
blocks, because the system uses this length when it tests to see 
if the next record can be contained in the current block. 


The PUT macro instruction is used to create or extend an indexed 
sequential data set. To extend the data set, the key of any 
added record must be higher than the highest key existing in the 
data set, and the disposition parameter of the DD card must be 
specified as DISP=M0OD. The new records are placed in the prime 
data space, starting in the first available space, until the 
original space allocation is exhausted. 


To create a data set using previously allocated space, the 
disposition parameter of the DD card must specify DISP=OLD. 


The PUT macro is written: 


[symbol]| PUT dcb address 
[,area address] 


dcb address—RxX-Type Address, €2-12), or (1) 
The dcb address operand specifies the address of the data 
control block for the opened ISAM data set. 


area address—RxX-Type Address, (2-12), or (0) 
The area address operand specifies the address of the area 
that contains the record to be written Cmove mode only). 
Either move or locate mode can be used with QISAM, but they 
must not be mixed within the specified data control block. 
The following describes operations for locate and move 
modes: 


Locate Mode: If locate mode is specified in the data 
control block, the area address operand must be omitted. 
The system returns the address of the next available buffer 
in register 1; this is the buffer into which the next 
record is placed. The record is not written until another 
PUT macro instruction is issued for the same data control 
block. The last record is written when a CLOSE macro 
instruction is issued to close the data set. 


Move Mode: If move mode has been specified in the data 
control block, the area address operand must specify the 
address in the problem program that contains the record to 
be written. The system moves the record from the area to 
an output buffer before control is returned. If the area 
address operand is omitted, the system assumes that 
register 0 contains the area address. 
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PUT 
PUT ROUTINE EXIT 


The error analysis CSYNAD) routine is given control if the 
output operation could not be completed satisfactorily. The 
contents of the registers when the error analysis routine is 
given control are described in Appendix A, “Status Information 
Following an Input/Output Operation" on page 192. 
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PUT 
UT~~WRI E GIc ECORD SA 


me The PUT macro instruction causes the system to write a record in 

—_ a sequential data set. Various modes are available and are 
specified in the DCB macro instruction. In the locate mode, the 
address of an area within an output buffer is returned in 
register 1 after the macro instruction 1s executed. The user 
should subsequently construct, at this address, the next 
sequential record or record segment. The move mode of the PUT 
macro instruction causes a logical record to be moved into an 
output buffer. In the data mode, which is available only for 
variable-length spanned records, the PUT macro instruction moves 
pe the data portion of the record into one or more output 
uffers. 


The records are blocked by the control program (as specified in 
the data control block) before being placed in the data set. 

For undefined-length records, the DCBLRECL field determines the 
length of the record that is subsequently written. For 
variable-length records, the DCBLRECL field is used to locate a 
buffer segment of sufficient size Clocate mode), but the length 
of the record actually constructed is verified before the record 
is written (the output block can be filled to the maximum if, 
before issuing the PUT macro, DCBLRECL is set equal to the 
record length). For variable-length spanned records, the system 
segments the record according to the record length, buffer 
length, and amount of unused space remaining in the output 
buffer. The smallest segment created will be 5 bytes, 4 for the 
segment descriptor word plus 1 byte of data. 


If the ISCII/ASCII translation routines are included when the 
operating system is generated, translation can be requested by 
coding LABEL=(,AL) or (€,AUL) in the DD statement, or it can be 
requested by coding OPTCD=Q in the DCB macro instruction or DCB 
subparameter of the DD statement. When translation is 
Hala ag a all QSAM records whose record format CRECFM operand) 
_ s F, FB, D, DS, DB, DBS, or U are automatically translated from 
Ee EBCDIC code to ISCII/ASCII code. For translation to occur 
a correctly, all output data must be in EBCDIC code; any EBCDIC 
| character that cannot be translated into an ISCII/ASCII 
character is replaced by a substitute character. 


The PUT macro is written: 


C[symbol]| PUT dcb address 
[,area addressl 


dch_ address——RX-Type Address, (2-12), or (1) : 
The dcb address operand specifies the address of the data 
control block for the data set opened for output 


area address—RX-Type Address, (2-12), or (0) 
The area address operand specifies the address of an area 
that contains the record to be written (move or data mode). 
The move, locate, or data mode can be used with QSAM, but 
they must not be mixed within the specified data control 
block. If the area address operand is omitted in the move 
or data mode, the system assumes that register zero 
contains the area address. The following describes the 
operation of the three modes: 


Locate Mode: If locate mode is specified, the area address 
operand must be omitted. The system returns the address of 
the next available buffer in register 1; this is the buffer 
into which the next record is placed. 


When variable-length spanned records are processed without 
the extended logical record interface (XLRI), and a record 
area has been provided for a logical record interface CLRI) 
CBFTEK=A has been specified in the data control block or a 
BUILDRCD macro instruction has been issued), the address 
returned in register 1 points to an area large enough to 
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PUT 


contain the maximum record size Cup to 32756 bytes). The. 

system segments the record and writes all segments, 

providing proper control codes for each segment. If, for a 
variable-length spanned records, an area has not been aa 
provided, the actual length remaining in the buffer will be Ne 
returned in register 0. In this case, it is the user's 
responsibility to segment the records and process them in 

terms of record segments. ISO/ANSI/FIPS spanned records, 

RECFM=DS or RECFM=DBS, may not be processed in segment 

mode. The record or segment is not written until another 

PUT macro instruction is issued for the same data control 

block. The last record is written when the CLOSE macro 

instruction 1s issued. 


When a PUT macro instruction is used in the locate mode, 
the address of the buffer for the first record or segment 
is obtained by issuing a PUT macro after open. QSAM 
returns the address in register 1. The user then moves 
data to this address. The buffer is not written to the 
data set until the next PUT macro is issued. If records 
are blocked, the data is not written to the data set until 
the PUT following the one that filled the buffer. Each PUT 
macro will return the address of the next buffer in : 
register 1. After this address is given to the user, QSAM 
will always count this address as a valid record. The user 
should always place valid data at the address returned in 
register 1 before issuing another PUT or FEOV or CLOSE 
MACRO; otherwise, residual data at that location will be 
written to the data set. After an FEOV macro 1s issued, 
Cfor multivolume data sets), register 1 must be 
reinitialized with the first buffer address for the next 
volume by issuing a PUT macro after return from FEOV. 


Move Mode: If move mode has been specified in the data 
control block, the area address operand specifies the 
address of the area that contains the record to be written. 
The system moves the record to an output buffer before 
control is returned. 


Data Mode: If data mode is specified in the data control 
block Cdata mode can be specified for variable-length 
spanned records only), the area address operand specifies 
the address of an area in the problem program that contains 
the data portion of the record to be written. The system 
moves the data portion of the record to an output buffer 
before control is returned. The user must place the total 
data length in the DCBPRECL (not the DCBLRECL) field of the 
data control block before the PUT macro instruction is 
issued. 


Extended Logical Record Interface (XLRI): When the PUT 
macro is used with the extended logical record interface, 
the address returned in register 1 points to an area that 
is used to build a 4-byte logical record length field CRDW) 
followed by a complete logical record. The logical record 
length byte count occupies the three low-order bytes of the 
record length field and must include the length of the 
field. The high-order byte must be zero. The DCB LRECL 
value indicates the length of the longest logical record of 
the data set in 'K' (€1024-byte) units. 


PUT ROUTINE EXIT 


If the output operation could not be completed satisfactorily, 
the error analysis (SYNAD) routine is given control after the 
next PUT instruction 1S issued. The contents of the registers 
when the error analysis routine is given control are described 
in Appendix A, "Status Information Following an Input/Output 
Operation™ on page 192. 
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PUTX 
EXIS G 3 ISAM AND QSAM 


The PUTX macro instruction causes the control program to return 
an updated record to a data set (QISAM and QSAM) or to write a 
record from an input data set into an output data set CQSAM 
only). There are two modes of the PUTX macro instruction. The 
output mode (QSAM only) allows writing a record from an input 
data set ona different output data set. The output data set 
may specify the spanning of variable-length records, but the 
input data set must not contain spanned records. 


The update mode returns an updated record to the data set from 
which it was read. The logical records are blocked by the 
control program, as specified in the data control block, before 
they are placed in the output data set. The control program 
uses the length specified in the DCBLRECL field as the length of 
the record currently being stored. Control is not returned to 
the user's program until the control program has processed the 
record. 


For SYSIN or SYSOUT data sets, the PUTX macro instruction can be 
used only in the output mode. 


The PUTX macro 1s written: 


[symbol PUTX dcb_ address 
[,input dcb address] 


dcb address-——RX-Type Address, (2-12), or (1) 
The dcb address operand specifies the address of the data 
control block for a data set opened for output. 


input dcb address—RX-Type Address, (2-12), or (0) 
The input dcb address operand specifies the address of a 
data control block opened for input. The PUTX macro 
instruction can be used for the following modes: 


Output Mode: This mode is used with QSAM only. The input 
dcb address operand specifies the address of the data 
control block opened for input. If this operand is 
omitted, the system assumes that register 0 contains the 
input dcb address. 


Update Mode: The input dcb address operand is omitted for 
update mode. 


The error analysis CSYNAD) routine 1s given control if the 
operation is not completed satisfactorily. The contents of the 
registers when the error analysis routine 1s given control are 
described in Appendix A, "Status Information Following an 
Input/Output Operation" on page 192 
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READ 
READ—"READ A BLOCK (BDAM) 


The READ macro instruction causes a block to be retrieved from a on 
data set and placed in a designated area of storage. Control i. Ss 
may be returned to the problem program before the block is Me 
retrieved. The input operation must be tested for completion . 
using a CHECK or WAIT macro instruction. A data event control 

block, shown in Appendix A, "Status Information Following an 

Input/Output Operation” on page 192, is constructed as part of 

the macro expansion. 


The standard form of the READ macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form): 


decb_ name 


» type 

»dcb address 

»tarea address|'S'} 
lengthI'S'} 


? 
»{key address] 'S'|0} 
»block address 
[»next address] 





decb name-——symbol 
The decb name operand specifies the name assigned to the 
data event control block created as part of the macro 
expansion. 


type""{DICFIXICR|RUI} 
CDKCF|XICRI|RUI} 
The type operand is coded in one of the combinations shown 
above to specify the type of read operation and the 
optional services performed by the system: 


DI 
specifies that the data and key, if any, are to be oy’ 
read from a specific device address. The device : 
address, which can be designated by any of the three 
pian ose ag methods, 1s supplied by the block address 
operand. 


DK 
specifies that the data Conly) is to be read from a 
device address identified by a specific key. The key 
to be used as a search argument must be supplied in 
the area specified by the key address operand; the 
search for the key starts at the device address 
supplied in the area specified by the block address 
operand. The description of the DCB macro 
instruction, LIMCT operand, contains a description of 
the search. 


requests that the system provide block position 
feedback into the area specified by the block address 
operand. This character can be coded as a suffix to 
DI or DK as shown above. 


requests exclusive control of the data block being 
read, and that the system provide block position 
feedback into the area specified by the block address 
operand. The descriptions of the WRITE and RELEX 
macro instructions contain a description of releasing 
a data block that is under exclusive control. This 
character can be coded as a suffix to DI or DK as 
shown above. 
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READ 


requests that the system provide next address feedback 
into the area specified by the next address operand. 
When R is coded, the feedback is the relative track 
address of the next data record. This character can 
be coded as a suffix to DI or DK, DIF, DIX, DKF, or 
DKX as shown above, but can be coded only for use with 
Variable-length spanned records. 


RU 
requests that the system provide next address feedback 
into the area specified by the next address operand. 
When RU is coded, the feedback is the relative track 
address of the next capacity record (RO) or data 
record whichever occurs first. These characters can 
be coded as a suffix to DI, DK, DIF, DIX, DKF, or DKX, 
but it can be coded only for use with variable-length 
spanned records. 


dcb address—A-Type Address or (2-12) 
The dcb address operand specifies the address of the data 
control block opened for the data set to be read. 


area _address~—A-Type Address, (2-12), or 'S' 
The area address operand specifies the address of the area 
in which the data block is to be placed. If 'S" is coded 
instead of an address, dynamic buffering 1s requested 
(dynamic buffering must also be specified in the MACRF 
operand of the DCB macro instruction). When dynamic 
buffering 1s used, the system acquires a buffer and places 
its address in the data event control block. 


length—symbol, decimal digit, absexp, (2-12), or 'S' 
The length operand specifies the number of data bytes to be 
read up to a maximum of 32760. If 'S' is coded instead of 
a length, the number of bytes to be read is taken from the 
data control block. This operand is ignored if the records 
are not format-U. 


key address—A-Type Address, (2-12), 'S', or 0 
The key address operand specifies the address of the area 
for the key of the desired data block. If the search 
operation 1S made using a key, the area must contain the 
key. Otherwise, the key is read into the designated area. 
If the key is read and 'S' was coded for the area address, 
"S' can also be coded for the key address; the key and data 
are read sequentially into the buffer acquired by the 
system. If the key is not to be read, specify 0 instead of 
an address or 'S', 


block address—A-Type Address or (2-12) 
The block address operand specifies the address of the area 
containing the relative block address, relative track 
address, or actual device address of the data block to be 
retrieved. The device address of the data block retrieved 
1s placed in this area if block position feedback is 
requested. The length of the area that contains the 
address depends on whether the feedback option COPTCD=F) 
has been specified in the data control block and if the 
READ macro instruction requested feedback. 


If OPTCD=F has been specified, feedback (if requested) is 
in the same form as originally presented by the READ macro 
instruction, and the field can be either 3 or 8 bytes long, 
depending on the type of addressing. 


If OPTCD=F has not been specified, feedback Cif requested) 


1s in the form of an actual device address, and the field 
must be 8 bytes long. 
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next address—A-Type Address or (2-12) 


The next address operand specifies the address of the 
storage area in which the system places the relative 
address of the next record. The length operand must be 
specified as 'S'. When the next address operand is 
specified, an R or RU must be added to the type operand 
Cfor example, DIR or DIRU). The R indicates that the next 


address returned is the next data record. 


RU indicates 


that the next acldress returned is for the next data or 


capacity record, whichever occurs first. 


The next address 


operand can be coded only for use with variable-length 


spanned records. 
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The READ macro instruction causes an unblocked record, or a 
block containing a specified logical record, to be retrieved 
from a data set. The block is placed in a designated area of 
storage, and the address of the logical record is placed in the 
data event control block. The data event control block is 
constructed as part of the macro expansion and is described in 
Appendix A, "Status Information Following an Input/Output 
Operation" on page 192 


Control may be returned to the problem program before the block 
is retrieved. The input operation must be tested for completion 
using a WAIT or CHECK macro instruction. 


The standard form of the READ macro instruction is written as 
follows for BISAM (Cthe list and execute forms are shown 
following the descriptions of the standard form): 


decb name 
»tyvpe 
»dcb_ address 


rfarea address | ' S'} 
»{lengthl' 
»key Sree 





decb name-—symbol 
The decb name operand specifies the name assigned to the 
data event control block (DECB) created as part of the 
macro expansion. 


type—{K| KU} 
The type operand is coded as shown to specify the type of 
read operation: 


K 
specifies normal retrieval. 


KU 
specifies that the record retrieved is to be updated 
and returned to the data set; the system saves the 
device address to be returned. 


When an ISAM data set is being updated with a READ KU 
macro instruction and a WRITE K macro instruction, 
both the READ and WRITE macro instructions must 
reference the same data event control block. This 
update operation can be performed by using a list-form 
instruction to create the list (data event control 
block) and by using the execute form of the READ and 
WRITE macro instructions to reference the same list. 


dcbh address—A-Type Address or (2-12) 
The dcb address operand specifies the address of the data 
control block for the opened data set to be read 


area address—A-Type Address, (2-12), or 'S! 
The area address operand specifies the address of the area 
in which the data block is placed. The first 16 bytes of 
this area are used by the system and do not contain 
information from the data block. The area address must 
specify a different area than the key address. Dynamic 
buffering is specified by coding 'S' instead of an address; 
the address of the acquired storage area is returned in the 
data event control block. Indexed sequential buffer and 


work area requirements are described in Data Administration 
Guide. 
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length——symbol, decimal 
The length operand 
up to a maximum of 
length, the number 
count field of the 
coded. 


digit, absexp, (2-12), or ‘'S! 

specifies the number of bytes to be read 
32760. If 'S' is coded instead of a 

of bytes to be read is taken from the a 
record; for blocked records, 'S' must be \ 





key address-——A-Type Address or (27-12) 
The Key address operand specifies the address of the area 
in the problem program containing the key of a logical 
record in the block that is to be retrieved. When the 


input operation is 


completed, the storage address of the 


logical record is placed in the data event control block. 
The Key address must specify a different area than the area 


address. 
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aa The READ macro instruction causes a block to be retrieved from a 
JOR . data set and placed ina designated area of storage. Control 
may be returned to the problem program before the block is 
retrieved. The input operation must be tested for completion 
using a CHECK macro instruction. A data event control block, 
shown in Appendix A, "Status Information Following an 
Input/Output Operation™ on page 192, 18 constructed as part of 
the macro expansion. 


If the OPEN macro instruction specifies UPDAT, both the READ and 
WRITE macro instructions must reference the same data event 
control block. (See the list form of the READ or WRITE macro 
instruction for a description of how to construct a data event 
control block; see the execute form of the READ or WRITE macro 
instruction for a description of how to modify an existing data 
event control block.) 


The standard form of the READ macro instruction is written as 


follows (the list and execute forms are shown following the 
descriptions of the standard form instructions): 


decb_ name 


, 

»dcb address 
,yarea address 
[>lenathl,'S'] 





decb name-—symbol 
The decb name operand specifies the name assigned to the 
data event control block CDECB) created as part of the 
macro expansion. 


ae type—{SF|SB} | | 
_—— The type operand is coded as shown to specify the type of 
read operation: 


SF 
specifies normal, sequential, forward retrieval. 


SB 
specifies a read-backward operation; this operand can 
be specified only for magnetic tape with format-F or 
format-U records. 


This operand is intended to be used when the data set 
is OPEN for RDBACK. Tape positioning, label 
processing, and volume mounting errors will occur 
during EOV and CLOSE if an OPEN option, other than 
RDBACK, is used. 


dcb address——A-Type Address or (2-12) 
The dcb address operand specifies the address of the data 
control block for the opened data set to be read. 


area address A-Type Address or (2-12) 
The area address operand specifies the address of the 
problem program area in which the record is placed. When a 
READ SB macro instruction 1s issued, the area address must 
be the address of the last byte of the area into which the 
record 1s read. If the data set contains keys, the key is 
read into the buffer followed by the data. 


length—symbol, decimal digit, absexp, (2-12), or 'S' 

The length operand specifies the number of data bytes to be 
read, to a maximum of 32760. If the data is translated 
from ISCII/ASCII code to EBCDIC code, the maximum number of 
bytes that can be read is 2048. For format-U records, ‘'S' 
or a valid length must be coded. The number of bytes to be 
read is taken from the data control block if 'S' is coded 
instead of a number. (This operand is ignored for format-F 
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or format-V records.) For format-D records only, the 

length of the record just read is automatically inserted 

into the DCBLRECL field by the check routine if BUFOFF=CL) pa 
1s not specified in the data control block. | 


Jk : 
. \ 
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READ 
OFFSET READ O EVED BDAM DATA SET USING BSAM 


The READ macro instruction causes a block to be retrieved from a 
data set and placed in a designated area of storage. The data 
set is a BDAM data set and its record format is unblocked 
variable-length spanned records. BFTEK=R must be specified in 
the data control block. Control may be returned to the problem 
program before the block is retrieved. The input operation must 
be tested for completion using a CHECK macro instruction. 

data event control block, shown in Appendix A, "Status 
Information Following an Input/Output Operation" on page 192, is 
constructed as part of the macro expansion. 


The standard form of the READ macro instruction is written as 
follows Cthe list and execute forms are shown following the 
descriptions of the standard form): 


decb name 
» SF 


»dcb address 
»yarea address 





dech_ name—symbol 
The decb name operand specifies the name assigned to the 
data event control block (CDECB) created as part of the 
macro expansion. 


SF 
specifies normal, sequential, forward retrieval. 


dcb address—A-Type Address or (2-12) 
The dcb address operand specifies the address of the data 
control block for the opened BDAM data set to be read. 


area address—A-Type Address or (2-12) 
The area address operand specifies the address of the area 
in which the record is placed. 


When a spanned BDAM data set is created with keys, only the 
first segment of a record has a key; successive segments do not. 
When a spanned record is retrieved by the READ macro 
instruction, the system places a segment ina designated area 
addressed by the area address operand. The problem program must 
assemble all the segments into a logical record. Because only 
the first segment has a key, the successive segments are read 
into the designated area offset by key length to ensure that the 
block-descriptor word and the segment-descriptor word are always 
in their same relative positions. 
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S$ 


The list form of the READ macro instruction is used to construct 
a data management parameter list in the form of a data event 
control block (DECB). For a description of the various fields 
of the DECB for each access method, see Appendix A, "Status 
Information Following an Input/Output Operation™ on page 192. 


The description of the standard form of the READ macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
the operands used for each access method, and the meaning of 'S' 
when coded for the area address, length, and key address 
operands. For each access method, 'S' can be coded only for 
those operands for which it can be coded in the standard form of 
the macro instruction. The format description below indicates 
the optional and required operands in the list form only. 


The list form of the READ macro is written: 


decb name 


»>type 

»>Cdch address] 

»lCarea address|'S'] 
length|'S"] 





decb_name—symbol 
type—Code one of the types shown in the standard form 
dcb_ address-——-A-Type Address 
area_add —A-Type Address or 'S' 
length—symbol, decimal digit, absexp, or '‘'S' 
key address—A-Type Address or 'S' 
block address—A-Type Address 
next _address—A-Type Address 
MF=L——Coded as shown 
The MF=L operand specifies that the READ macro instruction 


is used to create a data event control block that can be 
referenced by an execute-form instruction. 
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READ-—~EXECUTE FORM 





READ 


A remote data management parameter list (data event control 
block) is used in, and can be modified by, the execute form of 
the READ macro instruction. The data event control block can be 
generated by the list form of either a READ or WRITE macro 
instruction. 


The description of the standard form of the READ macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
the operands used for each access method and the meaning of 'S' 
when coded for the area address, length, and key address 
nperands. For each access method, 'S'"' can be coded only for 
those operands for which it can be coded in the standard form of 
the macro instruction. The format description below indicates 
the optional and required operands in the execute form only. 


The execute form of the READ macro is written: 


decbh address 


» type 

»>>Edcb address] 

»larea address|'S'] 
[ thi 'S'"] 


> 

»tkey address|]'S'"] 
»Cblock address] 
‘yCnext address] 
»>MF=E 





decb address-——-RX-Type Address or (2-12) 

type—-Code one of the types shown in the standard form 

dcbh address—RX-Type Address or (2-12) 

area address——RX-Type Address, (2-12), or 'S' 

length—symbol, decimal digit, absexp, (2-12), or 'S' 

key address-——RX-Type Address, (2-12), or 'S' 

block address——-RX-Type Address, or (2-12) 

e addr s—RX-Type Address or (2-12) 

MF=E—Coded as shown 
The MF=E operand specifies that the execute form of the 
READ macro instruction is used, and that an existing data 


event control block (specified in the decbh address operand) 
1s used by the access method 
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RELEX 

RELEX"-~RELEASE EXCLUSIVE CONTROL (BDAM | 
The RELEX macro instruction causes release of a data block from 
exclusive control. The block must have been requested in an 
earlier READ macro instruction that specified either DIX or DKX. 


Note: A WRITE macro instruction that specifies either DIX or 
DKX can also be used to release exclusive control. 


The RELEX macro is written: 


D 
ydcb address 





»block address 


D 
, specifies direct access. 


deb address—RX-Type Address, (2-12), or (1) 
The dcb address operand specifies the address of the data 
control block for a BDAM data set opened for processing. 
The operand must specify the same data control block 
designated in the associated READ macro instruction. 


block address—RxX-Type Address, (2-12), or (0) 
The block address operand specifies the address of the area 
containing the relative block address, relative track 
address, or actual device address of the data block being 
released. The operand must specify the same area 
designated in the block address operand of the associated 
READ macro instruction. 


COMPLETION CODES 


When the system returns control to the problem program, the 
low-order byte of register 15 contains one of the following 
eta codes; the three high-order bytes of register 15 are set 
o 0. 


Return 
Code (15) Meaning 


00 ¢CX'O00') Operation completed successfully. 


0G CX'0G') The specified data block was not in the 
exclusive control list. 


08 (X'08!') The relative track address, relative 


block address, or actual device address 
was not within the data set. 
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SE=— 


RELSE 
p p 


The RELSE macro instruction causes immediate release of the 
current input buffer. The next GET macro instruction retrieves 
the first record from the next input buffer. For 
variable-length spanned records (QSAM), the input data set is 
spaced to the next segment that starts a logical record ina 
subsequent block. Thus, one or more blocks of data or records 
may be skipped. The RELSE macro instruction is ignored if a 
buffer has just been completed or released, if the records are 
unblocked, or if issued for a SYSIN data set. 


The RELSE macro is written: 


dcb address-—-RX-Type Address, (2-12), or (1) 
The dcb address operand specifies the address of the data 
control block for the opened input data set. 
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SETL 
SETL=“S 0 Li OF SEQUENTIA ETRIEV Is I 


The SETL macro instruction causes the control program to start 
processing the next input request at the specified record or ft 
device address. Sequential retrieval of records using the GET \G 
macro instruction continues from that point until the end of the ae 
data set is encountered or a CLOSE or ESETL macro instruction is 

issued. An ESETL macro instruction must be issued between SETL 

macro instructions that specify the same data set. 





The SETL macro instruction can specify that retrieval is to 
start at the beginning of the data set, at a specific address on 
the device, at a specific record, or at the first record of a 


specific class of records. For additional information on SETL 
functions, see Data Administration Guide. 


The SETL macro is written: 


[symbol]| SETL dcb dress 
{,KEH],lower limit address} 
£/KC, dower limi {address} 
aE lower limit address} 


eae ove imit ad 





dcbh address-——RX-Type Address, (2-12), or (1) 
The dcb address operand specifies the address of the data 
control block opened for the indexed sequential data set 
being processed. 


The following operands are coded as shown; they specify the 
starting point and type of retrieval 


K ie 
specifies that the next input operation is to begin at the a 
record containing the key specified in the lower-limit 
address operand. 


KC 
specifies that the next input operation is to begin at the 
first record of the key class specified in the lower-limit 
address operand. If the first record of the specified key 
class has been deleted, retrieval begins at the next 
nondeleted record regardless of key class. 


used with either K or KD, specifies that, if the key in the 
lower-limit address operand is not in the data set, 
retrieval begins at the next higher key. The character H 
cannot be coded with the Key class operands (KC and KCD). 


KD 
specifies that the next input operation is to begin at the 
record containing the key specified in the lower-limit 
address operand, but only the data portion of the record is 
dioica This operand is valid only for unblocked 
records. 


KCD 
specifies that the next input operation is to begin at the 
first record of the Key class specified in the lower-limit 
address operand, but only the data portion of the record is 
eee This operand is valid only for unblocked 
records. 


specifies that the next input operation is to begin with 
the record at the actual device address specified in the 
lower-~limit address operand. 
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SETL EXIT 


SETL 


ID 
specifies that the next input operation is to begin with 
the record at the actual device address specified in the 
lower-limit address operand, but only the data portion of 
the record is retrieved. This operand is valid only for 
unblocked records. 

B 
specifies that the next input operation is to begin with 
the first record in the data set. 

BD 


specifies that the next input operation is to begin with 
the first record in the data set, but only the data portion 
is retrieved. This operand is valid only for unblocked 
records. 


lower limit address—RX-Type Address, (2-12), or (0) 
The lower-limit address operand specifies the address of 
the area containing the key, key class, or actual device 
address that designates the starting point for the next 
input operation. If I or ID has been specified, this area 
must contain the actual device address (in the form 
MBBCCHHR) of a prime data record; the other types require 
that the key or key class be contained in this area. 


The error analysis CSYNAD) routine is given control if the 
operation could not be completed successfully. The exception 
condition code and general registers are set as shown in 
Appendix A, "Status Information Following an Input/Output 
Operation" on page 192. If the SETL macro instruction is not 
reissued, retrieval starts at the beginning of the data set. 
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SETPRT=—~PRINTER SETUP (BSAM, QSAM, AND EXCP) 


For the IBM 3800 Printing Subsystem, the SETPRT macro 
instruction is used to initially set or dynamically change the 
printer control information. The following control information 
may be changed with the SETPRT macro: 





° Bursting of forms CBURST parameter) 

e Character arrangements to be used (CHARS parameter) 
e The number of copies (COPIES parameter) 

° The starting copy number CCOPYNR parameter) 

° Vertical formatting of a page (FCB parameter) 

e Flashing of forms CFLASH parameter) 


e Initializing the printer control information CINIT 
parameter ) 


e Modification of copy CMODIFY parameter) 
@ Blocking or unblocking of data checks COPTCD parameter) 


In addition to changing the control information, you can also do 
the following: 


® Create your own 3800 load modules ina library to replace 
the use of SYSI].IMAGELIB CLIBDCB parameter). 


® SETPRT error messages that are sent to the printer can also 
be passed back to the invoking program (CMSGAREA parameter). 


e Print or suppress error messages on the printer CPRTIMSG 
parameter). 

e Control the scheduling of SYSOUT segment printing CDISP ; 
parameter). Se 


To use all-points addressability when operating the 3800 Model 
3, PSF libraries (for example, SYS].FONTLIB, SYS1.FDEFLIB, 
SYS1.PDEFLIB) will be used instead of SYSI]1.IMAGELIB. As an 
alternative, the library with the LIBDCB parameter may be used. 


For additional information on how to use the SETPRT macro 
instruction with the 3800 Model 3, see JBM 3500 Printing 
ubsystem Models 3 a & ogrammer's Guid 


For printers other than the 3800 Printing Subsystem, the SETPRT 
macro instruction 1s used to control the following: 


° Selection and verification of UCS and FCB images (CUCS and 
FCB parameters) 


e Blocking or unblocking of data checks COPTCD parameter) 


e Printing lowercase EBCDIC characters in uppercase (OPTCD and 
UCS parameters) 


For printers that have a universal character set (UCS) buffer or 
a forms control buffer (FCB), the SETPRT macro instruction is 
used to fetch UCS and FCB images from the image library 
CSYS]1.IMAGELIB) and load them into their respective buffers. 
Note that FCB images for the 3203/3211 and 3800 are not 
compatible. The universal character sets for the 1403/3203 and 
the character arrangement table modules for the 5800. are also 
not compatible. 


IBM-supplied UCS images, FCB images, and character arrangement 

table modules are included in SYS1.IMAGELIB at system generation £ 
time. For impact printers, user-defined character sets and a 
forms control images can be added to SYS1.IMAGELIB as described " 
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m—Da dministration. For the 3800, user-defined 
character arrangement table modules, copy modification modules, 
FCB modules, and graphic character modification modules (that 
modify the character set) and library character sets can be 
added to SYS1.IMAGELIB as described in Utilities. The EXLST 
parameter of the DCB macro instruction can be used to specify 
the address of an FCB module in storage. 


For the 1403 and 3211, if the specified UCS or FCB image cannot 
be found in SYS1L.IMAGELIB or the DCB exit list, the system 
operator is asked to specify a replacement name and can 
therefore override an error made by the program. For the 3800, 
the SETPRT routines never ask the operator to replace or 
respecify a parameter from the SETPRT macro, and SETPRT 
processing is terminated. 


When BSAM is being used, all write operations must be checked 
for completion before the SETPRT macro instruction is issued; 
any incomplete write operations are purged. Issuing the SETPRT 
macro instruction for a device other than an on-line UCS printer 
or the 3800 Printing Subsystem results in an error return code. 


The standard form of the SETPRT macro instruction is written as 
follows (the list and execute forms are shown following the 
standard form): 


[symbol]|}SETPRT!| dcbaddr 
[,BURST={NIY}] 
[,»CHARS={name|Aladdress) |R( register )}} 
{({namelAladdress) | 
R(; egister)},. e° )} J 
[,COPIES=number] 
[,COPYNR=number] 
[»>DISP=[SCHEDULE | NOSCHEDULE | EXTERNAL] 
[,FCB={Limageid|Aladdress)|R( register )} 
{({imageid]|Aladdress) | 
R(register )},{VIA})}1 
[> FLASH={name} 
{(Enamel»,count)}]1 
[, INIT={NIY}] 
[, LIBDCB=dcbaddress] 
[,MODIFY={{namelAladdress) |Rlregister )} 
{({namelAladdress) | 
Rlregister )},trcej}] 
[»MSGAREA=address] 
[,OPTCD={B | U} 
{({B]U},{F]U})}] 
[»PRTMSG=([NIY] 
[,REXMIT={NIY}] 
[,UCS={csc} 
{(csc,{FIF,VIV} )}] 





dcbaddr—A-Type Address or (2-12) 
The dcbaddr operand specifies the address of the data 
control block for the data set to be printed; the data set 
must be opened for output before the SETPRT macro 
instruction is issued. 


BURST={NIY} 
The BURST operand specifies whether the paper output is to 
be burst. BURST=Y indicates that the printed output is to 
be burst into separate sheets and stacked. BURST=N 
indicates that the printed output is to go into the 
continuous forms stacker. If BURST is not specified, the 
SETPRT routine assumes BURST=N. If bursting 1s requested, 
the printed output is threaded into the burster-trimmer- 
stacker. Otherwise, the printed output is threaded into the 
continuous forms stacker. The operand causes a message to 
be printed at the system console telling the operator to 
thread the paper again if needed. This operand is valid 
for the 3800 printer only. 
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CHARS={namelAladdress|/R(register )} 


{({name]Aladdress)|R(register)},...)} 

The CHARS operand specifies one to four character 
arrangement tables to be used when printing a data set. Ya 
This operand is valid for the 3800 printer only. 


hataayaies 


hame 
is the last four characters of the 8-byte member name 


for a charecter arrangement table module. For 
information on the modules available, see 


ubs 
Aladdress) 
specifies an in-storage address of the user-provided 
character arrangement table module. : For information 


on the format of the module, see 


R(register ) 
specifies the register that contains an in-storage 
address of the user-provided character arrangement 
table module. For information on the format of the 


module, see Utilities. \ 


COPIES=number 


specifies the total number of copies of each page of the 
data set that is to be printed (from 1 to 255) before going 
to the next page. If the COPIES operand is omitted, one 
copy of each page is printed. This operand is valid for 
the 3800 printer only. 


DISP={SCHEDULE | NOSCHEDULE | EXTERNAL} 


DISP allows you to control how JES disposes of the data 
that is created before the SETPRT request. This parameter 
is valid only for SYSOUT data sets and is ignored for the 
direct user who issues SETPRT. You may abbreviate the 
parameters to S, N, and E, respectively. This operand is 
valid for the 3800 printer only. 


SCHEDULE ; 
specifies that JES is to schedule the previous data a 
for printing immediately. 


NOSCHEDULE 
specifies that JES is to separate the data into a 
separate JES data set and to schedule the previous 
data set for printing after the job terminates. 


EXTERNAL | 
specifies that the schedule of the data set for 
printing is determined by the JCL parameter 
FREE=CLOSE. FREE=CLOSE is the same as specifying 
DISP=SCHEDULE. The absence of FREE=CLOSE in the JCL 
is the same as coding DISP=NOSCHEDULE on the SETPRT 
macro. EXTERNAL is the default. 


FCB= {imageid]Aladdress)|R(reaister) } 
{({imageid|Aladdress)|Rl register )},{VIA} )} 


The FCB operand specifies that the forms control buffer 
(FCB) is to be selected from the image library. When the 
FCB operand is specified, the OPTCD operand can also be 
specified. The possible specifications are: 


imageid | : 

specifies the forms control image to be loaded. A 
forms control image is identified by a l- to 
G-character name. IBM-supplied 3211 format images are 
identified by imageid value of STD1 and STD2; 
user-designed forms control images are defined by the 
installation. For descriptions of the standard forms 
control images for the 3203 and 3211, see System—Data 
Administration. For more information about 3800 FCB 
modules, see j : 


\ & : 
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Aladdress) 


The address subparameter specifies an in-storage 
address of the user-supplied forms control buffer 
aaa module to be used. (For information on the format of 
( the module, see Utilities.) This subparameter is 
valid for the 3800 Model 1 printer only. 


R(register ) 
The register subparameter specifies the register that 
contains an in-storage address of the user-provided 
forms control buffer module to be used when printing a 
data set. (For information on the format of the 
module, see Utilities.) This subparameter is valid 
for the 3800 Model 1 printer only. 


V or VERIFY 
requests that the forms control image be displayed on 
the printer for visual verification. This operand 
allows forms verification and alignment using the WTOR 
macro instruction. 


A or ALIGN 
allows forms alignment using the WTOR macro 
instruction. This subparameter will be ignored if 
specified for the 3800 printer. 


FLASH={name} 
{0 Enamel, count)} 


The FLASH operand identifies the forms overlay frame to be 
used. Unless REXMIT=Y is coded and the forms overlay frame 
is still in use from the previous SETPRI macro issuance, a 
message tells the operator to insert this forms overlay 
frame into the printer. This operand also enables you to 
specify the number of copies on which the overlay is to be 
printed (flashed). If this operand is omitted, flashing 
ceases. This operand is valid for the 3800 printer only. 


name | 
( is the 1-~ to 4G-character name of the forms overlay 
: frame. 


count 
indicates the total number (0 to 255) of copies of 
each page of the data set on which the overlay will be 
printed, beginning with the first copy. The number of 
copies printed will not be greater than the number of 
copies specified by the COPIES operand. No copies 
will be flashed if the count of zero 18S specified. If 
a nonzero count is specified and the name of the forms 
overlay frame is omitted, the operator will not be 
requested to insert a frame. Whatever frame is 
inserted will be used. 


INIT={NIY3 | 
INIT=Y will initialize the control information in the 3800 
printer with a folded character arrangement table, the 
10-pitch Gothic character set (12 pitch for the 3800 Model 
3), and a six lines per inch FCB corresponding to the forms 
size in the printer. COPIES and COPYNR will be initialized 
to 1, FLASH and MODIFY will be initialized to none, and 
BURST will be initialized to N Ccontinuous forms). For 
INIT=N, all control information for the 3800 printer will 
remain unchanged. Any parameters included on the same _ 
macro statement as the INIT operand will be processed after 
printer initialization has been completed. This operand is 
valid for the 3800 printer only. 


LIBDCB=dcbaddress—A-Type Address or (2-12) 
dcbaddress is the address of an authorized user library DCB 
that has been opened, and that you want to use instead of 
SYS].IMAGELIB. If LIBDCB is not specified, SYS1.IMAGELIB 
is used. This operand is valid with 3800 Model 1 only. 
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Note: This is for the user with direct control of the 3800 
Model l. | 


MODIFY={namelAladdress)|R( register) 


3 
({name|Aladdress) |R(€ register )},tre)} 
The MODIFY operand identifies the copy modification module 
and an associated character arrangement table module to be 
used when modifying the data to be printed. This operand 
is valid for the 3800 Model 1 printer only. 


A 1- to 4-character name of the copy modification 
module stored in SYS1.IMAGELIB. These one to four 
characters are the last characters of the 8-byte 
member name of a copy modification module in 
SYS1.IMAGELIB. 


Aladdress) 
The address subparameter specifies an in-storage 
address of the user-supplied copy modification module. 
This subparameter is valid for the 3800 Model 1 
printer only. For information on the format of the 


module, see Uialities. 


R(register ) 
The register subparameter specifies a register that 
contains an in-storage address of the user-provided 
copy modification module. This subparameter is valid 
for the 3800 Model 1 printer only. For information on 
the format of the module, see Utilities 


tre 
specifies the table reference character used to select 
one of the character arrangement table modules to be 
used for the copy modification text. The values of 0, 
1, 2, and 3 correspond to the order in which the 
module names have been specified in the CHARS operand. 
If tre is not included, the first character 
arrangement table module (€0) is assumed. 


MSGAREA=address—A-Type Address or (2-12) 


address is the address of the message feedback area. This 
area 1s used to transfer message text between the SETPRT 
macro and the caller. You must allow at least 80 bytes for 
the message text plus 10 bytes for prefix information or a 
total length of at least 95 bytes. The message is 
truncated if it does not fit into the area. This operand 
1s valid with 3800 only. The following shows the layout of 
the message area: 


bytes 0-1: total length 
bytes 2-5: reserved 
bytes 6-7: text length 
bytes 8-9: reserved 
bytes 10-variable: message text 


OPTCD={B|U} 


{({B]U},{F]U} )} 
The OPTCD operand specifies whether printer data checks are 
blocked or unblocked and if the printer is to operate in 
fold or normal mode. The possible specifications are: 


B 
specifies that printer data checks are blocked; this 
Apia updates the DCBOPTCD field of the data control 
lock 


specifies that printer data checks are unblocked; this 
ee updates the DCBOPTCD field of the data control 
ock. 
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F or FOLD 
specifies that printing is in fold mode. This 
subparameter 1s ignored if specified for the 1403 or 
an 3800 printer. For 1403 fold mode, use fold option 
( under the UCS operand. 


U or UNFOLD 
specifies that printing is in normal mode; this 
operand causes fold mode to revert to normal mode. 
This subparameter will be ignored if specified for the 
1403 or 3800 printer. 


PRTMSG={N] Y} 
PRTMSG allows printer error messages to be printed for the 
programmer on the 3800. This operand is valid with 3800 
only. 


N 
specifies not to print error messages on the 3800. 


Y 


specifies to print error messages on the 3800. Y is 
the default. 


REXMIT={N|Y} 
The specification of REXMIT=Y allows modification of the 
starting copy number CCOPYNR), the number of copies of the 
pages ina data set to be printed (COPIES), the forms 
overlay frame to be used (FLASH), and the number of copies 
to be printed CFLASH) without changing the other control 
information already set up in the printer. The SETPRT SVC 
will ignore all other parameters in the parameter list. 


UCS={csc} 
{(csc,{FIF,VIV})} 
The UCS operand specifies that the UCS buffer is to be 
loaded from the image library. When the UCS operand is 
peo specified, the FCB and OPTCD operands can also be 
( specified. This operand will be ignored if specified for 
the 3800 printer. The possible specifications are: 


csc (character set code) 
The csc operand specifies the character set selected. 
A character set is identified by a l- to 4-character 
al Codes for standard IBM character sets are as 
ollows: 


1403 or 3203 Printer: AN,» HN, PCAN, PCHN, PN, QN, QNC, 
RN > SN> TN> XN> and YN 


3211 Printer: All, H11, G1ll, Pll, and T1l 


For descriptions of the standard IBM character sets, 
see System Generation; codes for user-designed 
character sets are defined by the installation. For 
information on adding user-defined entries to an image 
table, see tein-Da dmini ] ‘ 


F or FOLD 
specifies that the character set image selected is to 
be in fold mode. The fold mode translates the EBCDIC 
code for lowercase characters to the EBCDIC code for 
the corresponding uppercase characters. 


V or VERIFY 
requests that the character set image be displayed on 
the printer for visual verification. 
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RETURN CODES 
After the SETPRT macro instruction is executed, a return code is 
placed in register 15, and control is returned to the ae 
instruction following the SETPRT macro instruction. The oN 
illustration below shows how the four bytes of register 15 are Neg! 
used for a specific printer, 7 0 0 
Byte 0 1 2 3 


3800 Code 





Other than FCB Code UCS Code 
FCB 


Bit 0 7 8 15 16 23 24 31 


The return codes in the figures that follow are in hexadecimal. 
@ Return codes 0 through 14 apply to a specific printer. 
e Return codes 18 through 24 apply to all printers. 


e Return codes 28 through 50 apply to the 3800 printer only. 


Figure 1 shows the hexadecimal return codes 00 through 14 for 
specific printers. An 'XX' in the columns labeled '3800 Code 
Other than FCB" or 'FCB Code,! means that a nonzero code may be 
in that byte. 











3800 Code 
Other than 
FCB 

(Byte 1) 














FCB Code 
(Byte 2) 


uUCS Code 
(Byte 3) 


Successful completion. ae. 


The operator canceled the UCS request for the 
following reason: 


e The UCS image could not be found in 
SYS1.IMAGELIB. 


mye 
04 XX For non-3800 printers, the operator canceled 

the FCB load operation for one of the 

following reasons: 

e The form could not be aligned to match 
the buffer. 

® The FCB module could not be found in 
SYS1.IMAGELIB or the user's DCB exit 
list. 

For a 3800, the specified FCB module could 

not be found in SYS1.IMAGELIB, a user 

library, or the DCB exit list, and SETPRT 

processing was terminated. 





Figure 1 (Part 1 of 3). SETPRT Return Codes for Specific Printers 
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3800 Code 
Other than 
FCE 

(Byte 1) 













UCS Code 
(Byte 3) 


FCB Code 
(Byte 2) 





3800 SETPRT processing was suspended for 
of the following reasons: 


A character arrangement table module 
could not be found in SYS1.IMAGELIB or a 
user library. 


A copy modification module could not be 
found in SYS1.IMAGELIB or a user library. 


A graphic character modification module 
Crequired by a character arrangement 
table module) could not be found in 
SYS].IMAGELIB or a user library. 


A library character set module could not 
be found in SYS1.IMAGELIB or a user 
library. 


Register 0 contains a reason code identifying 
which of the above conditions occurred. 


For an explanation, see Figure 3 on page 157. 


A permanent I/O error was detected when the 


BLDL macro instruction was issued to locate a 
UCS image in SYS]1.IMAGELIB. 


al 
2 a ae 
XX A permanent I/0 error was detected when the 
BLDL macro instruction was issued to locate 
an FCB module in SYS1.IMAGELIB or a user 
library. 
A permanent I/0 error was detected when the 
BLDL macro instruction was issued to locate 
one of the following modules in SYS1.IMAGELIB 
or a user library. 
A character arrangement table module 
A copy modification module 
A graphic character modification module 
-— = | 
PP ye 


A library character set module 


Register 0 contains a reason code identifying 
which of the above conditions occurred. 


For an explanation, see Figure 3 on page 157. 


A permanent I/0 error was detected while 
loading the printer's UCS buffer. 


A permanent I/0 error was detected during 
forms positioning or while loading the 
printer's FCB buffer. 





Register 0 contains a reason code identifying 
which of the above conditions occurred. 


For an explanation, see Figure 3 on page 157. 





Figure 1 (Part 2 of 3). SETPRT Return Codes for Specific Printers 
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3800 Code 
Other than 
FCB 

(Byte 1) 


FCB Code 
(Byte 2) 


| 
| 
fe 
a 
a ae 









UCS Code 
(Byte 3) 


A permanent I/0 error was detected when an 
attempt was made to display the character set 
image on the printer for visual verification. 


A permanent I/70 error was detected when an 
attempt was made to display the forms control 
image on the printer for visual verification. 


The operator canceled the UCS request because . 
an improper character set image was displayed See 
for visual verification. 


The operator canceled the FCB request because 
an improper forms control image was displayed 
for visual verification. 


A permanent I/0 error was detected while 
loading one of the following: 
¢ Character arrangement table 

Copy modification record 

Starting copy number 

Graphic character modification record 

Forms overlay sequence control record 

(copy counts and flash counts) 

Writable character generation module 

CWCGM) 

Library character set (3800 only) 
Register 0 contains a reason code identifying 
which of the above conditions occurred. 

For an explanation, see Figure 3 on page 15/7. 





Figure 1 (Part 3 of 3). SETPRIT Return Codes for Specific Printers 


The illustration below shows how the four bytes of register 15 
are used for all printers. 


Byte 0 l 2 3 
Unused Unused General 
Code 
Bit 0 7 8 15 16 23 24 31 


Figure 2 shows the hexadecimal return codes 18 through 24 for 
all printers. 
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Return 


Code 
(Byte 3) 





No operation was performed for one of the 
following reasons: 


pe 
oo 





The data control block was not open 


The data control block was not valid for a 
sequential data set. 


The SETPRT parameter list was not valid 


The output device was not a UCS or 3800 
printer 


O 


No operation was performed because an 
uncorrectable error occurred in a previously 
Initiated output operation. The error analysis 
CSYNAD) routine is entered when the next PUT or 
CHECK macro instruction 1s issued. 


No operation was performed because an 
uncorrectable error occurred when the block data 
check or the reset block data check command was 
issued by SETPRT. 


For a 3800, message JEC173I will indicate which 
of the above errors has occurred. 


Register 0 contains a reason code identifying 
whether or not data was lost. For an 
explanation, see Figure 4 on page 15/7. 


Not enough space has been provided for the 
SYS1.IMAGELIB or a user library control blocks. 


SYS1.IMAGELIB Cor, for the 3800, a user library) 
cannot be opened to load the specified module. 


The operator canceled the forms overlay request. 


The operator canceled the paper threading 
request. 


RO 
iN 


NM | RN 
O | 


WGN 


There are more writable character generation 


modules CNCGMs) requested than there are 
writable buffers installed on the printer. 


There was an invalid table reference character | 
for copy modification. 


An error occurred when attempting to execute the 
initialize printer command. 





WGN GN 
Oo os) 


GN 
O° 


A, 
fi fs 
awn } [ow] 


Bursting was requested but the 
Burster-Trimmer-Stacker feature is not installed 
on the printer. 


As) 
© 


A permanent I/0 error occurred while executing a 


sense, final select character arrangement table 
command, or display status code. 


aN 
=X 


The translate table character arrangement table 
entry references a character set that is not in 
the image library. 





nN 
ew 
ia 
Cc 
“ 
@ 
N 
o~ 
“~ 
® 
) 
re 
—_ 
© 
—h 
RO 
—_ 


SETPRT Return Codes for All Printers 
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Return 
Code 
(Byte 3) 


Data was lost because of one of the following 
€3800 only): 


° 3800 system restart after a paper jam 
e Cancel key 
° Lost resources after paper jam 


A load check was detected while loading one of 
the following (3800 only): 


Forms control buffer CFCB) 
Character arrangement table CCAT) 
Graphic arrangement table (GCM) 


Copy modification record 


Writable character generation module (CWCGM) 


Library character set (LCS) 


Register 0 contains a reason code identifying 
which of the above conditions occurred. 


For an explanation, see Figure 3 on page 157. 
When a SETPRT was issued to a SYSOUT data set, 
there was a failure in one of the following 
€3800 only): 


The subsystem interface (SSI) for OPEN or 
CLOSE 


Data set segmentation 


Queue manager issuing I/0 to read the JFCB 
and/or the JFCBE 


ENQ failure 
More than one DCB is open for the SYSOUT 


data set 


Figure 2 (Part 2 of 2). SETPRT Return Codes for All Printers 
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IBM 3800 MODELS 1 AND 3 


l and 3 printers are in addition to completion codes 04, 08, OC, 


coe. | These reason codes, returned in register 0, for the 3800 Models 
( and GC returned in register 15. 


The following illustration shows the contents of register 0, 
which includes the GCM ID, the CAT ID, and the reason code. 


Byte 0 l 2 3 
Unused GCM ID CAT ID Reason 
Code 
Bit 0 7 8 15 16 235 24 31 


Figure 3 shows the hexadecimal reason codes for the IBM 3800 
Model 1 and the IBM 3800 Model 3 in compatibility mode. 


GCM ID CAT ID Reason Code 
(Byte 1) (Byte 2) (Byte 3) 
01-04 Character arrangement 
table module/record 
Copy modification 
module/record 
Graphic character 


modification 
module/record 


14 Forms overlay sequence 
control record 

1C Writable character 
generation module CWCGM) 

20 Forms control buffer 
module 


Figure 3. Reason Codes for IBM 3800 Models 1 and 3 Printers 
(GCM ID and CAT ID) 












Figure 4 shows the reason codes in addition to return code 1C 
returned in register 15. The reason code is placed in byte 3 of 
register 0. Bytes O through 2 are reserved. 


Reason Code 

(Byte 3) 
} 00 Indicates no data lost. 
Indicates data has been lost. 


Figure 4. Reason Codes for All Printers (Bytes 0 through 2 
Reserved) 
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Figure 5 on page 158 shows the reason codes in addition to. 
return code 48 returned in register 15. The reason code is 
placed in byte 3 of register 0. Bytes O through 2 are reserved. 


- Reason Code 
(Byte 3) 


A paper jam caused a restart. <A possible lost 
data condition was detected. 


Lae 
) 08 The cancel key was pressed. 
Resources were lost after a paper jam. 


Figure 5. Reason Codes for IBM 3800 Models 1 and 3 Printers 
(Bytes 0 through 2 Reserved) 











Figure 6 shows the reason codes in addition to return code 50 
returned in register 15. The reason code is placed in byte 3 of 
register 0. Bytes 0 through 2 are reserved. | 


Reason Code 
(Byte 3) 












An invalid SETPRT request for a SYSOUT data 
segment was specified. An in-storage address 
was used for a copymod, character arrangement 
table, FCB, or user library DCB. Only 3800 
load module IDs in SYS1L.IMAGELIB are allowed 
for SYSOUT setup for 3800. 


If Direct Attach Ca directly allocated 3800 
Model 3 or Model 8 printer) is active, data 
management treats the device specified by the 
UNIT parameter as a SYSOUT data set. 


During SETPRT processing for a SYSOUT data 
segment, an error was detected while 

attempting to read a JFCB or JFCBE control 
block from SWA 


During SETPRT processing for a SYSOUT data 
segment, an error was detected while invoking 
the CLOSE subsystem interface (SSI) for the 
previous data segment 


















During SETPRT processing for a SYSOUT data 
segment, an error was detected while invoking 

the OPEN subsystem interface (SSI) for the new 
data segment being created 





During SETPRT processing for a SYSQUT data 
segment, an error was detected while the 

scheduler spool file allocation routine was 
segmenting the data set 


An ENQ macro failed. The ENQ was issued by 
SETPRT processing. 


More than one DCB is open for the SYSOUT data 
set. 


Figure 6. Reason Codes for IBM 3800 Models 1 and 3 Printers 
(Bytes 0 through 2 Reserved) 


Lee! 
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SETPRT 


The list form of the SETPRT macro instruction is used to 
construct a data management parameter list 


The description of the standard form of the SETPRT macro 
instruction provides the explanation of the function of each 
operand. The format description below indicates the optional 
and required operands for the list form only. The dcbaddr 
parameter must appear in the list or execute form of the SETPRT 
macro. 


The list form of the SETPRT macro instruction is written as 
follows: 


[symbol]]} SETPRT [dcbaddr 
[»BURST= tNty?3 
[,CHARS={ [name} 

{(name> eee 3] 
[,COPIES=number] 
[,COPYNR=number] 
[»DISP=CSCHEDULE | NOSCHEDULE | EXTERNAL] 
(,FCB={imageid} 

{Cimageid,{V]A})}1 
[»F LASH={name} 
(Cnamel,count)}] 
[,INIT={NIY}1] — 
LIEBDCB=dcbaddress] 
MODIFY={name} 
{(name,troe)}]1 
MSGAREA=address] 


{({B]U},{F]U})3] 
PRTMSG=ENIY] 
REXMIT={N[Y}] 
UCS={csc} 

{(cseef{FIF,VIV})3) 


[, 
[, 
[> 
[,OPTCD={B|U} 
C> 
[> 
C> 


»MF=L 





dcbaddr—A-Type Address 


BURST={NIY} 
is coded as shown in the standard form of the macro 
instruction. 


CHARS={name} 
{(name>»... )} 
is coded as shown in the standard form of the macro 
instruction, except for the Aladdress) and Rlregister) 
parameters, which cannot be specified. 


COPIES=number 
1s coded as shown in the standard form of the macro 
instruction. 


COPYNR=number 
is coded as shown in the standard form of the macro 
instruction. 


DISP={SCHEDULE | NOSCHEDULE | EXTERNAL} 
is coded as shown in the standard form of the macro 
instruction. 


FCB={imageid} 
{(imageid, {VIA} )} 
is coded as shown in the standard form of the macro 
instruction, except for the Aladdress) and 
parameters, which cannot be specified. 


Macro Instruction Descriptions 159 








SETPRT 


FLASH={name} 
{( Enamel], count)} 
is coded as shown in the standard form of the macro foo 
instruction. c, 


INIT={NIY} 
is coded as shown in the standard form of the macro 
instruction. 


LIBDCB=dcbaddress-——A-Type Address or (2-12) 
1s coded as shown in the standard form of the macro 
instruction. 


MODIFY={name} 
{(name,itrce)} 
is coded as shown in the standard form of the macro 
instruction, except for the Aladdress) and Rlregister) 
parameters, which cannot be specified. : 


MSGAREA=address——A-Type Address or (2-12) 
is coded as shown in the standard form of the macro 
instruction. 


OPTCD={B|U} 
{({B/U}, {FU} )} 
is coded as shown in the standard form of the macro 
instruction. 


PRTMSG={N]|Y} 
1s coded as shown in the standard form of the macro 
instruction. 


REXMIT={N|Y} 
is coded as shown in the standard form of the macro 
instruction. 


UCS={csc} ee 
{(cse,{FIF,VIV})} | 
is coded as shown in the standard form of the macro ae 
instruction. 


MF=L 
specifies that the list form of the macro instruction is 
used to create a parameter list that can be referenced by 
an execute form of the SETPRI macro instruction. 





160 MVS/XA Data Administration: Macro Instruction Reference 














SETPRT 
SE T~~EXECUTE FOR 


A remote data management parameter list is referred to, and can 
be modified by, the execute form of the SETPRT macro 
instruction. 


The description of the standard form of the SETPRT macro 

instruction provides the explanation of the function of each 
operand. The format description below indicates the optional 
and required operands for the execute form only. The dcbaddr 


parameter must be specified in the list or execute form of the 
SETPRT macro. 


The execute form of the SETPRT macro instruction is written as 
follows: 


[symbol1]|SETPRT| [C€debaddr] 
C[»BURST={NIV|[¥}] 
[,CHARS={namelAladdress)|]R( register )} 
f foame|Aladdress}|R(reaister)},...)3 
3 
[,COPIES={number |*}]1 
[,COPYNR={number |1*}] 
[, DISP=[SCHEDULE | NOSCHEDULE | EXTERNAL] 
[,»FCB= fimageid|Atadd ress) [Rl€register J} 
{( fimageid|ACaddress}(R(reaister), 
{V|A}J}30%}1 
{,FLASH={name} 
t{toame?» count). 
% 


[,INIT={N|Y} 1] 
[,LIBDCB=dcbaddress] 
[»MODIFY={namelAladdres =) [Ri register )} 
f (iname|ACaddress)1R (register)},trc} 
% 
MSGAREA=address] 


[> 
[; OPTCD= {B[U} 
{({B/U}, {CFU} )}] 

[»>PRTMSG=[NIY] _. 
[, REXMIT= INI V1} ] 
[,UCS= {csc} 

{(csc»f{FIF,VIV} 71] 
»MF=(E,{da anageme ist _ address|(1)}) 


| 
Y 
Y 
{ 





dcbaddr—RX-Type Address or (2-12) 


BURST={NIYIX} 
1s coded as shown in the standard form of the macro 
instruction, except for the * subparameter, which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When BURST=* is coded, the 
BURST field in the parameter list remains as it was 
aes set. This operand is valid for the 3800 printer 
only. 


CHARS= {nam elAladdress)(R( register) 
- {nane|A(addcens)IRiresieter)>»...1 


1s coded as shown in the standard form of the macro 
instruction, except for the * subparameter, which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When CHARS=X* is coded, the 
CHARS field in the parameter list remains as it was 
previously set. 


COPIES={number |} 
1s coded as shown in the standard form of the macro 
instruction, except for the * subparameter, which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When COPIES=* is coded, the 
COPIES field in the parameter list remains as it was 
previously set. 
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COPYNR={number |} 
1s coded as shown in the standard form of the macro 
instruction, except for the X subparameter, which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When COPYNR=X is coded, the 
COPYNR field in the Pobamecer list remains as it was 
previously set. | 





DISP= {SCHEDULE | NOSCHEDULE | EXTERNAL} 
is coded as shown in the standard form of the macro 
instruction. 


FCB= timageid|Aladdress)|R(re agister J} 

a {imageid|Aladdress) |Rl register )},{V]A})} 

x} 

1s coded as shown in the standard form of the macro 
instruction, except for the X subparameter, which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When FCB=X* is coded, the FCB 
nie in the parameter list remains as it was previously 
set. 


FLASH={name} 
fi tnames »counk 33 
% 


is coded as shown in the standard form of the macro 
instruction, except for the * subparameter, which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When FLASH=X% is coded, the 
FLASH field in the parameter list remains as it was 
previously set. 


INIT= {NIY} 
is coded as shown in the standard form of the macro 
instruction. When INIT=Y 1s specified on the execute form 
of the SETPRT macro instruction, all 3800 fields in the 
parameter list (BURST, CHARS, COPIES, COPYNR, FCB, FLASH, 
MODIFY, and REXMIT) will be reset to binary zeros unless a 
specified field is preserved by coding keyword parameter=*X 
or changed by specifying a valid subparameter for the 
keyword parameter as described in the standard form of the 
macro instruction. 


LIBDCB=dcbaddress—A-Type Address or (2-12) 
is coded as shown in the standard form of the macro 
instruction. 


MODIFY={name|Aladdress)|[R( register )} 

fe qnamelAladdress)1R( register )},tre}y 

x% 
1s coded as shown in the standard form of the macro 
instruction, except for the * subparameter, which can be 
used only when INIT=Y is specified in the execute form of 
the SETPRT macro instruction. When MODIFY=* is coded, the 
MODIFY field in the parameter list remains as it was 
previously set. 


MSGAREA=address——A- Type Address or (2-12) | 
1s coded as shown in the standard form of the macro 
instruction. 


OPTCD={B|U} 
{({B1U},{F]U})} 
1s coded as shown in the standard form of the macro 
anstruction. | 


PRTMSG={N|Y} 
is coded as shown in the standard form of the macro 
instruction. 
is coded as shown in the standard form of the macro 
instruction. 
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SETPRT 


REXMIT={NIY |} 
is coded as shown in the standard form of the macro 
instruction, except for the * subparameter, which can be 
used only when INIT=Y 1s specified in the execute form of 
the SETPRT macro instruction. When REXMIT=* is coded, the 
REXMIT field in the parameter list remains as it was 
previously set. 


UCS={csc} 
{(lcsc,{FIF,V]V} )} 
1s coded as shown in the standard form of the macro 


instruction. 
MF=(E,{data management list address|(1)}) 


specifies that the execute form of the SETPRT macro 
instruction is used, and an existing data management 
parameter list is used. 

E—Coded as shown 


dat anage j addr —RX-Type Address, (2-12), 
or (]) 
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STOW 
0 DATE ONE | SE IRECTO A 
The STOW macro instruction causes the system to update a 


partitioned data set directory by adding, changing, replacing, | fe 
or deleting an entry in the directory. Only one entry can be \ 








updated at a time using the STOW macro instruction. If the ad 
entry to be added or replaced 1s a member name, the system 
writes an end-of-data indication following the member. All 
input/output operations using the same data control block must 
have previously been tested for completion. 
The STOW macro 1s written: 
[Csymbol]| STOW dcb_ address 
»list address 
f »directory action! 
[,directory actionl[AICIDIR]I] 
dcb address—RX-Type Address, (2-12), or (1) 
The dcb address operand specifies the address of the data 
control block for the opened partitioned data set. The 
STOW macro instruction can be used only when the data set 
is opened for OUTPUT, UPDAT or OUTIN CBSAM). 
list address—RX-Type Address, (2-12), or (0) 
The list address operand specifies the address of the area 
containing the information required by the system to 
maintain the partitioned data set directory. The size and 
format of the area depend on the directory action requested 
as follows: 
Adding or Replacing a Directory Entry: The list address 
operand must specify an area at least 12 bytes long and 
beginning on a halfword boundary. The following 
illustration shows the format of the area: ; 
: r 
List Address vane 
ae ee 
Length 
Bytes to 62 


NAME: Specifies the member name or alias being added or 
replaced. The name must begin in the first byte of the 
field and be padded on the right with blanks, if necessary, 
to complete the 8-byte field. 


TT: Specifies the relative track number where the beginning 
of the data set is located. 


R: Specifies the relative block (record) number on the 
track identified by TT. 


Note: The TTR field shown above must be supplied by the 
problem program if an alias Calias bit is 1) is being added 
or replaced. The system supplies the TTR field when a 
member name is being added or replaced. 
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STOW 


C: Specifies the type of entry (member or alias) for the 
name, the number of note list fields CTTRNS), and the 
length in halfwords, of the user data field. The following 


( : describes the meaning of the 8 bits: 
Bit Meaning 
0=0 Indicates a member name. 
0=1 Indicates an alias. 


l and 2 Indicate the number of TTRN fields (maximum of 3) 
: in the user data field. 


3-7 Indicate the total number of halfwords in the user 
data field. 


Deleting a Directory Entry: The list address operand must 
specify an 8-byte area that contains the member name or 
alias to be deleted. The name must begin in the first byte 
of the area and be padded on the right with blanks, if 
necessary, to complete the 8 bytes. 


Changing the Name of a Member: The list address operand 
must specify the address of a l6-byte area; the first 8 
bytes contain the old member name or alias, and the second 
8 bytes contain the new member name or alias. Both names 
must begin in the first byte of their 8-byte area and be 
padded on the right with blanks, if necessary, to complete 
the 8-byte field. 


directory action—[(def.AICID|R] 
If the directory action operand is not coded, A Cadd an 
entry) is the default. The operand is coded as shown to 
specify the type of directory action: 


7 A 
aa: specifies that an entry is to be added to the 
a: directory. 
Cc 
specifies that the name of an existing member or alias 
is to be changed. 
D 
specifies that an existing directory entry is to be 
deleted. 
R 


specifies that an existing directory entry is to be 
replaced by a new directory entry. If R is coded but 
the old entry is not found, the new entry is added to 
the directory and a completion code of X'08' is 
returned in register 15. 


COMPLETION CODES 


When the system returns control to the problem program, register 
15 contains a return code and register 0 contains a reason code 
in the low-order byte; the three high-order bytes of both 
registers are set to 0 
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STOW 


Codes 
Return (15) 


00 


04 


08 


0c 


10 


14 


18 


The following is a list of return codes contained in register 
15: | | | | | 


A 


The update of 
the directory 
was completed 
successfully. 


The directory 
already 
contains the 


specified name. 


No space left 
in the 
directory. 
The entry 
could not be 
added; 
replaced, or 
changed. 


A permanent 
input or 
output error 
was detected. 
Control is not 
given to the 
error analysis 
CSYNAD) 
routine. 


The specified 
data control 
block is not 
open or is 
opened for 
input. 


Insufficient 
virtual 
storage was 
available to 
perform the 
STOW function. 


Directory Action 


R 


The update of 
the directory 
was completed 
successfully. 


The specified 
name could not 
be found. 


No space left 
in the 
directory. 
The entry 
could not be 
added, 
replaced, or 
changed. 


A permanent 
input or 
output error 
was detected. 
Control is not 
given to the 
error analysis 
CSYNAD) 
routine. 


The specified 
data control 
block is not 
open or 1s 
opened for 
input. 


Insufficient 
virtual 
storage was 
available to 
perform the 
STOW function. 


D 


The update of 
the directory 
was completed 
successfully. 


The specified 
name could not 
be found. 


A permanent 
input or 
output error 
was detected. 
Control is not 
given to the 
error analysis 
CSYNAD) 
routine. 


The specified 
data control 
block is not 
open or 1s 
opened for 
input. 


Insufficient 
virtual 
storage was 
available to 
perform the 
STOW function. 
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C 


The update of 
the directory 
was completed 
successfully. 


The directory 
already 
contains the 
specified new 
name. 


The specified 
old name could 
not be found. 


No space left 
in the 
directory. 
The entry 
could not be 
added, | 
replaced, or 
changed, — 


A permanent 
input or 
output error 
was detected. 
Control is not 
given to the 
error analysis 
CSYNAD) 
routine. 


The specified 
data control 
block is not 
open or is 
opened for 
input. 


Insufficient 
virtual 
storage was 
available to 
perform the 
STOW function. 





“a 























STOW 


The following is a list of reason codes contained in register 0. 


Reason 
Code (0) 


00 ¢X'00'") 
O01 (X'01") 


02 (X'02") 


3383 
CX'D37") 


Meaning 
Reason code is not applicable. (Returned with 
all return codes except 10.) 


All functions; the permanent I/0 error occurred 
while reading or writing directory blocks. 


Add and replace functions; the permanent I/0 
error occurred while EOF mark after the member. 


Error occurred when trying to write an EOF; all 
primary space used. 
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SYNADAF 





SYNADAF-—PERFORM SYNAD ANALYSIS FUNCTION (BDAM, BISAM, BPA BSA ExXCP, QISA AND 


QSAM) 


The SYNADAF macro instruction is used in an error analysis 
routine to analyze permanent input/output errors. The routine 
can be a SYNAD exit routine specified ina data control block 
for BDAM, BISAM, BPAM, BSAM, QISAM, QSAM, or a routine that is 
entered directly from a program that uses the EXCP macro 
instruction. (The EXCP macro instruction is described in Data 


Administration Guide.) 


The SYNADAF macro instruction uses register 1 to return the 
address of a buffer containing a message. The message describes 
the error, and can be printed by a subsequent PUT or WRITE macro 
instruction. The message consists of EBCDIC information and is 
in the form of a variable-length record. The format of the 
message is shown following the descriptions of the SYNADAF 
operands. 


The system does not use the save area whose address is in 
register 13. Instead, it provides a save area for its own use, 
and then makes this area available to the error analysis 
routine. The system returns the address of the new save area in 
register 13 and in the appropriate location (word 3) of the 
previous save area; it also stores the address of the previous 
save area in the appropriate location (word 2) of the new save 
area. 


The SYNADAF macro instruction passes parameters to the system in 
registers 0 and 1. When used in a SYNAD exit routine, the 
SYNADAF macro should be coded at the beginning of the routine. 
(See Data Facility Product: Customization.) For BISAM and 
QISAM, the SYNAD exit routine has to set up these parameters as 
explained under PARM1 and PARM2. To save these parameters for 
use by the SYNAD exit routine, the system stores them ina 
parameter save area that follows the message buffer as shown in 
the message buffer format. The system does not alter the return 
econ in register 14 or the entry point address in register 


When a SYNADAF macro instruction is used, a SYNADRLS macro 
instruction must be used to release the message buffer and save 
areas, and to restore the original contents of register 13. 


The SYNADAF macro is written: 


i{€symbol]| SYNADAF ACSMETH={BDAM 
[, pany bacm recister! 


: = 

[,PARM2=parm register]} 
{BSAM 

[,PARMl=parm register] 

C,PARM2=parm register]} 
LQSAM 

[,PARM1l=parm register] 

[,PARM2=parm register]} 
{BISAM 

[»>PARMl=dcbaddr] 

[,PARM2=dcb address]} 
{EXCP 

[,PARML=i90b addressl]} 
{QISAM 

[»PARM1l=dcbaddr] 

[,PARM2=parm register]} 





ACSMETH=BDAM, BPAM, BSAM, QSAM, BISAM, EXCP, or QISAM 
specifies the access method used to perform the 
input/output operation for which error analysis is 
performed. 
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COMPLETION CODES 








SYNADAF 
PARMl1=parm reqister, jiobaddr, or dcbaddr—(2-12) or (1) 


specifies the address of information that is dependent on 
the access method being used. For BDAM, BPAM, BSAM, or 
QSAM, the operand specifies a register that contains the 
information that was in register 1 on entry to the SYNAD 
routine. For BISAM or QISAM, it specifies the address of 
the data control block; for EXCP, it specifies the address 
of the input/output block. If the operand is omitted, 
PARM1=(1) is assumed. 


PARM2=parm register——(2-12), (0), or RX-Type 

Conly if ACSHETH=QISAM) 
specifies the address of additional information that is 
dependent on the access method being used. For BDAM, BPAM, 
BSAM, QISAM, and QSAM, the operand specifies a register 
that contains the information that was in register 0 on 
entry to the SYNAD exit routine. For BISAM, the operand 
specifies a register that contains the information that was 
in register 1] on entry to the SYNAD exit routine Cthe 
address of the DECB). For EXCP, the operand is meaningless 
and should be omitted. If the operand is omitted, except 
in the case of EXCP, PARM2=(0) is assumed. 


Note: To correctly load the registers for SYNADAF for BISAM, 
code these two instructions before issuing the SYNADAF macro: 


LR 0,1 GET DECB ADDRESS 
L 1,801) GET DCB ADDRESS 


When the system returns control to the problem program, the 
low-order byte of register 0 contains one of the following 
oe codes; the three high-order bytes of register 0 are set 
o 0. 


Reason 
Code (0) Meaning 


00 (CX*O0') Successful completion. Bytes 8 through 
13 of the message buffer contain 
blanks. 


04 (X'04°) Successful completion. Bytes 8 through 
13 of the message buffer contain binary 
data. 


08 (CX'08') Unsuccessful completion. The message 
can be printed, but some information 1s 
missing in bytes 50 through 127 and is 
represented by asterisks. If byte 8 is 
a blank (X'G0'), bytes 9 through 13 are 
either blanks or are not initialized. 
If byte 8 1s not a blank, then data was 
read, and bytes 8 through 13 of the 
message buffer contain binary data. 
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SYNADAF 
MESSAGE BUFFER FORMAT 





The following illustration shows the format of the message >, 
buffer; the address of the buffer is returned in register l. 


8 










Input 











Message Butter Input: Bufter 
Byte 0 4 8 Address 14 50 
LLbb ‘2 oe - a 


Doubleword Output: (Blanks) 
Boundary 


LL = 128, I= 124; bb = 000 
50 





Jobname 


84 91 







Operation 
Attempted 









Error Description 


107 122 128 








Access 
Method 





Unit Record: (Asterisks) 


(End of Buffer - 
— Beginning of 
Parameter Save Area 










Access 
Method 


Relative Block 
Number (decimal) 










Magnetic Tape: (Blanks) 


a 122 128 






Actual Track Address and Block Number 
(BBCCHHR in hexadecimal format) 


Access 
Method 








Direct Access: 


Parameter Save Area 
128 132 136 


Parameter Parameter 
Register 0 Register | 
(PARM2) (PARM]) 


Notes: 









1. The device type field (bytes 72 through 73) contains UR for a unit record 
device, TA for a magnetic tape device, or DA for a direct access device. 


2. If a message field (bytes 91 through 105) is not applicable to the type of error 
that occurred, it contains N/A or NOT APPLICABLE. 


3. If no data was transmitted, or if the access method is QISAM, bytes 8 through 13 
contain blanks or binary zeros. 


G4. If the access method is BISAM, bytes 68 through 70, 84 through 89, and 107 | 
through 120 contain asterisks. | 


5. If the access method is BDAM, and if the error was an invalid request, bytes 107 
through 120 contain EBCDIC zeros. 


6. The unit address field (bytes 68 through 70) contains the letters 'JES' if the 
data set is SYSIN or SYSOUT. 
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NADRLS~~RELEASE $ 
QISAM, AND QSAM) 





-SYNADRLS 
ADAF BUFFER AND SAVE AREAS (BDAM, BISAM, BPAM, BSA =XCP 


The SYNADRLS macro instruction releases the message buffer, 
parameter save area, and register save area provided by a 
SYNADAF macro instruction. It must be used to perform this 
function whenever a SYNADAF macro instruction is used. 


When the SYNADRLS macro instruction is issued, register 13 must 
contain the address of the register save area provided by the 
SYNADAF macro instruction. The control program loads register 
13 with the address of the previous save area, and sets word 3 
of that save area to 0. Thus, when control 1s returned, the 
save area pointers are the same as before the SYNADAF macro 
instruction was issued. 


The SYNADRLS macro is written: 


When the system returns control to the problem program, the 
low-order byte of register 0 contains one of the following 
reason codes; the three high-order bytes of register 0 are set 
to 


Reason 
Code (0) Meaning 


00 (€X'00'°) Successful completion. 


08 CX*08') Unsuccessful completion. The buffer 
and save areas were not released; the 
contents of register 13 remain 
unchanged. Register 13 does not point 
to the save area provided by the 
SYNADAF macro instruction, or this save 
area is not properly chained to the 
previous save area. 
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SYNCDEV 


SYNCDEV=“SYNCHRONIZE DEVICE 


The SYNCDEV macro instruction allows you to control data 
synchronization for the IBM 3480 Magnetic Tape Subsystem that 
supports buffered write mode. Data records in the tape control 
unit buffer may not yet be on tape when your program is ready to 
send more. There is no way to determine how much data is left 
in the buffer, and it is time dependent to tape motion. This 
data is not synchronized to your program; that is, you could 
overlay unwritten data in the buffer, or lose data when it is 
transferred from the channel if the buffer does not have enough 
space to hold it. You can use the SYNCDEV macro to either: 


8 Request information regarding synchronization 


e Demand synchronization if the specified number of aane 
blocks are buffered 


If more blocks are, buffered than were specified, the system 
stays in control until all the blocks are written to the 
tape or it detects an I/0 error. 


If the same amount or fewer blocks are buffered, buffering 
is not affected. 


Note: Demands for synchronization are ignored if the drive is 
in read mode. 


The SYNCDEV macro is written: 


[symb ol1]|SYNCDEV| DCB=addr 
L, LABUFELK= addr |BUFBLK= 
{maximum buffer depth|0}}] 
[,INQ={YES|NO}] 





The following describes the operands that can be specified for 
SYNCDEV. 


DCB=addr~~“A-Type address or (2-12) 
specifies the address of the data control block. 


ABUFBELK=addr |BUFBLK=ma u e 10 
specifies the maximum number of data blocks that can be 
buffered. 


ABUFBLK=addr~~"A-Type address or (2-12) 
specifies the address of a halfword on a halfword 
boundary that contains a value that specifies the 
maximum number of data blocks that can be buffered. 


BUFBLK={maximum buffer depth] 0} 
specifies the maximum number of data blocks that can 
be buffered. This number can be an absolute value 
from 0 to 65535. The BUFBLK value can be in the two 
low-order bytes of a register (2-12). 


Q 
If neither ABUFBLK nor BUFBLK is specified, the 
number of data blocks that can be buffered 
defaults to 0, and no data blocks are buffered. 
INQ={YES |NO} 


specifies whether this is a request for information about 
the degree of synchronization or a request for 
synchronization. 


YES 


specifies an inquiry as to how many data blocks are in 
the buffer. 
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SYNCDEV 


specifies a request for synchronization based on the 


number of data blocks that can be buffered as 
specified in ABUFBLK or BUFBLK. 


Register 0 contains the number of buffered physical 
blocks if the previous operation completed 
successfully. 


Note: Do not use this option in 3l-bit residence 


mode; it requires a 24-bit addressing mode parameter 
list. 
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SYNCDEV 
SYNCDEV=~LIS OR 


The list form of the SYNCDEV macro is written: 


[symbol ]]SYNCDEV| [DCB=addr] | | 
[,{BUFBLK=maximum buffer depth] 0}] 
[,INQ={YES|NO}] 
»MF=L 





The following describes the operands that can be specified for 
the list form of SYNCDEV. 


DCB=addr7~A-Type address 
specifies the address of the data control block. 


BUFBLK={maximum buffer depth|0} 
specifies the maximum number of data blocks that can be 
buffered. This number can be an absolute value from 0 to 
65535. If BUFBLK is not specified, the number of data 
blocks that can be buffered defaults to 0, and no data 
blocks are buffered. 


If neither ABUFBLK nor BUFBLK is specified, the number 
of data blocks that can be buffered defaults to 0, and 
no data blocks are buffered. 


INQ={YES | NO} 
specifies whether this is a request for information about 
the degree of synchronization or a request for 


synchronization. 

YES 
specifies an inquiry as to how many data blocks are in 
the buffer. 

NO 


specifies a request for synchronization based on the 
number of data blocks that can be buffered as 
specified in BUFBLK. 


MF=L 
generates a 24-bit addressing-mode parameter list that 
contains no executable instructions. The list can be used 


as input and can be modified by the execute form of the 
SYNCDEV macro. 


Note: Do not use this option in 3l-bit residence mode; it 
requires a 24-bit addressing-mode parameter list. 
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SYNCDEV-— 


ECU 


OR 








SYNCDEV 


The execute form of the SYNCDEV macro is written: 


[symbol1]1}]SYNCDEV| (DCB=addr] 
[, {ABUFBLK=addr |BUFBLK= 


{maximum buffer depth!0}}] 
[,INQ={VYES|NO}] 
»MF=(E, addr) 





The following describes the operands that can be specified for 
the execute form of SYNCDEV. 


DCB=addr~~A-Type address or (2-12) 
specifies the address of the data control block. 


ABUFBLK=addr |BUFBLK={maximum buffer depthI0 


specifies the maximum number of data blocks that can be 
buffered. 


ABUFBLK=addr~“A-Type address or (2-12) 
specifies the address of a halfword on a halfword 
boundary that contains a value that specifies the 
maximum number of data blocks that can be buffered. 


BUFBLK=maximum buffer depthIQ 
specifies the maximum number of data blocks that can 
be buffered. This number can be an absolute value 
from 0 to 65535. The BUFBLK value can be in the two 
low-order bytes of a register (2-12). 


Q 





If neither ABUFBLK nor BUFBLK is specified, the 
number of data blocks that can be buffered 
defaults to 0, and no data blocks are buffered. 


INQ={YES |NO} 
specifies whether this is a request for information about 
the degree of synchronization or a request for 


synchronization. 

YES 
specifies an inquiry as to how many data blocks are in 
the buffer. 
specifies a request for synchronization based on the 
number of data blocks that can be buffered as 
specified in ABUFBLK or BUFBLK. 
Register 0 contains the number of buffered physical 
blocks if the previous operation completed 
successfully. 
Note: Do not use this option in 3l-bit residence 
mode; it requires a 24-bit addressing mode parameter 
list. 

MF=(E,addr) 


specifies the execute form of SYNCDEV. 
addr~“A-Type address, RX-Type address, or (2-12) 


specifies the 24-bit addressing-~mode address for the 
parameter list. 
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SYNCDEV 


COMPLETION CODES 
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When the system returns control to your problem program, the 
low-order byte of register 15 contains a return code; the 
low-order byte of register 0 contains a reason code: 


Return 
Code (15) 


00 


04 
04 
04 
04 
04 
04 
04 
08 


12 


(X'00') 


CX*04") 
CX'04") 
CX'04') 
CX"04") 
CX'04') 
CX'04') 
CX*04") 
CX*08')D 


CXf0C') 





Re 


01 
02 
03 
04 
05 
11 
12 


ason 
Code (0) 


CX'01'") 
CX'02') 
CX'03") 
CX'04") 
(X'05") 
CX'OB!) 
CX'0C") 


Meaning 


Successful completion. Register 0 
contains the number of data blocks in 
the control unit buffer. 

Incorrect parameter. 

Incorrect DCB or a DEBCHK error. 
Environmental error. 

Incorrect input to NOTE. 

Device does not support buffering. 
Unsuccessful call to ESTAE macro. 
Unsuccessful GETMAIN request. 
Permanent I/0 error during read block 
ID or synchronize command. 

Permanent I/O error on the last channel 
program with loss of data. 

Note: If you specified a SYNAD option 
in the DCB and issue a PUT or CHECK 


macro after this error occurs, your 
Program cannot enter the SYNAD routine. 
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TRUNC-~TRUNCA 





TRUNC 


OUTPUT BUFFER (QSAM OUTPUT“~FIXED- OR VARIABLE-LENGTH BLOCKED 


The TRUNC macro instruction causes the current output buffer to 
be regarded as full. The next PUT or PUTX macro instruction 
specifying the same data control block uses the next buffer to 
hold the logical record. 


When a variable-length spanned record is truncated and logical 
record interface, or extended logical record interface, is 
specified (that is, if BFTEK=A is specified in the DCB macro 
instruction, or if a BUILDRCD macro instruction 1s issued, or if 
DCBLRECL=0K or nnnnnK 1s specified), the system segments and 
writes the record before truncating the buffer. Therefore, the 
block being truncated is the one that contains the last segment 
of the spanned record. 


The TRUNC macro instruction is ignored if it is used for 
unblocked records, if 1t 1s used when a buffer is full, or if it 


1s used without an intervening PUT or PUTX macro instruction. 


The TRUNC macro is written: 


[symbol]] TRUNC dcb address 


dcb address—RX-Type Address, (2-12), or (1) 
The dcb address operand specifies the address of the data 
control block for the sequential data set opened for 
output. The record format in the data control block must 
not indicate standard blocked records CRECFM=FBS). 
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WAIT | | ; 
WAIT—WAIT FOR ONE OR MORE EVENTS (BDAM, BISAM, BPAM, AND BSAM) 


The WAIT macro instruction is used to inform the control program 


that performance of the active task cannot continue until one or fon 
more specific events, each represented by a different ECB Cevent ( 
control block), have occurred. In the context of this manual, ees 


the ECBs represent completion of I/0 processing associated with 
a READ or WRITE macro. ECBs are located at the beginning of 
access method DECBs (data event control blocks), so that the 
DECB name provided in READ and WRITE macros is also used for 
WAIT. CA description of the ECB is found in Appendix A, “Status 
Information Following an Input/Output Operation" on page 192. 
For information on when to use the WAIT macro, see Data 


Administration Guide. ) 
The control program takes the following action: 


e For each event that has already occurred Ceach ECB is 
already posted), the count of the number of events is | 
decreased by l. 


e If the number of events is 0 by the time the last event 
control block is checked, control is returned to the 
instruction following the WAIT macro instruction. 


e If the number of events is not 0 by the time the last ECB is 
checked, control is not returned to the issuing program 
until sufficient ECBs are posted to bring the number to 0. 
Control is then returned to the instruction following the 
WAIT macro instruction. 


e The events will be posted complete by the system when all 
I/0 has been completed, temporary errors have been 
corrected, and length checking has been performed. The DECB 
is not checked for errors or exceptional conditions, nor are 
end-of-volume procedures initiated. Your program must 
perform these operations. 


The WAIT macro is written: 


[symbol]| WAIT eonbaror eventel | 
{, ECB-addr[ECBLIST=addr) 
[, LONG={YES|NO}] 





number of events 
specifies a decimal integer from 0 to 255. Zero is an 
effective NOP instruction; 1 is assumed if the operand is 
omitted. The number of events must not exceed the number 
of event control blocks. You may also use register 
notation (2-12). 


ECB=addr_ 
specifies the address of the event control block Cor DECB) 
representing the single event that must occur before 
processing can continue. The operand is valid only if the 
number of events is specified as l or is omitted 


addr 
specify RX type or use register notation (1-12). 


ECBLIST=addr 
specifies the address of a virtual storage area containing 
one or more consecutive fullwords on a fullword boundary. 
Each fullword contains the address of an event control 
block Cor DECB); the high-order bit in the last word 
(address) must be set to 1 to indicate the end of the list. 
The number of event control blocks must be equal to or 
greater than the specified number of events. 
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WALT 


LONG=[CYVES|NO] 
specifies whether the task is entering a long wait or a 
regular wait. Normally, I/0 events should not be 
considered ‘long’ unless it is anticipated that operator 
intervention will be required. 





Caution: A job step with all its tasks in a WAIT condition 
terminates upon expiration of the time limits that apply to it. 


Access method ECBs are maintained entirely by the access methods 
and supporting control program facilities. The user may inspect 
access method ECBs, but should never modify them. 
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WRITE=“WRI 


B 


oc 


BDAM 


The WRITE macro instruction causes the system to add or replace 
a block in an existing direct data set. (This version of the 
WRITE macro instruction cannot be used to create a direct data 
set because no capacity record facilities are provided. } 

Control may be returned before the block is written. The output 
operation must be tested-for completion using a CHECK or WAIT 
macro instruction. A data event control block, shown in 
Appendix A, "Status Information Following an Input/Output 
Operation™ on page 192, 1s constructed as part of the macro 
expansion. 


The standard form of the WRITE macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form): 


[symbol]|} WRITE dech name 


? 
»dcb address 


»tarea address| S'} 
»{length!|'S 

»{key eadecee(® $']0} 
»block address 





decb name—symbol 
specifies the name assigned to the dats event control block 
created as part of the macro expansion. 


type—{DAIF]} 
{DICF|X1} 
{DKLF|XI]} 
is coded in one of the combinations shown to specify the 
type of write operation and optional services performed by 
the system: 


DA 
specifies that a new data block is to be added to the 
data set in the first available space; the search for 
available space starts at the device address indicated 
in the area specified in the block address operand. 
Fixed-length records Cwith keys only) are added to a 
data set by replacing dummy records. Variable-length 
records (with or without keys) are added to a data set 
by uSing available space ona track. (For more 
information on adding records to a direct data set, 
see Data Administration Guide. The description of the 
DCB macro instruction, LIMCT operand, contains a 
description of the search.) 


DI : 
specifies that a data block and key, if any, are to be 
written at the device address indicated in the area 
specified in the block address operand. Any attempt 
to write a capacity record (RO) 1s an invalid request 
when relative track addressing or actual device 
addressing are used, but when relative block 
addressing is used, relative block 0 is the first data 
block in the data set. 


DK | 
specifies that a data block Conly) is to be written 
using the Key in the area specified by the key address 
operand as a search argument; the search for the block 
starts at the device address indicated in the area 
specified in the block address operand. The 
description of the DCB macro instruction, LIMCT 
operand, contains a description of the search. 
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requests that the system provide block position 
Sac: feedback into the area specified in the block address 
( operand. This character can be coded as a suffix to 
DA, DI, or DK as shown above. 


requests that the system release the exclusive control 
requested by a previous READ macro instruction and 
provide block position feedback into the area 
specified in the block address operand. This 
character can be coded as a suffix to DI or DK as 
shown above. 


dcb address—A-Type Address or (2-12) 
specifies the address of the data control block for the 
opened BDAM data set. 


area _address—A-Type Address, (2-12), or ‘'S' 
specifies the address of the area that contains the data 
block to be written. 'S' can be coded instead of an area 
address only if the data block Cor key and data) are 
contained in a buffer provided by dynamic buffering; that 
is, "S' was coded in the area address operand of the 
associated READ macro instruction. If 'S' is coded in the 
WRITE macro instruction, the area address from the READ 
macro instruction data event control block must be moved 
into the WRITE macro instruction data event control block; 
the buffer area acquired by dynamic buffering is released 
after the WRITE macro instruction is executed. For a 
description of the data event control block, see 
Appendix A, "Status Information Following an Input/Output 
Operation" on page 192. 


lenath—symbol, decimal digit, absexp, (2-12) or 'S' 
specifies the number of data bytes to be written up to a 
ae maximum of 32760. If 'S' is coded, it specifies that the 
system uses the value in the block size (DCBBLKSI) field as 
. the length. When undefined-length records are used, if the 
| WRITE macro instruction is for update and the length 
specified differs from the original block, the new block 
will be truncated or padded with binary zeros accordingly. 
The problem program can check for this situation in the 
SYNAD routine. 


If the length operand is omitted for format-U records, no 
error indication is given when the program is assembled, 
but the problem program must insert a length into the data 
ee block before the WRITE macro instruction is 
executed. 


key address—A-Type Address, (2-12), 'S', or 0 
specifies the address of the area that contains the key to 
be used. 'S' is specified instead of an address only if 
the key is contained in an area acquired by dynamic 
buffering. If the key is not written or used as a search 
argument, zero is specified instead of a key address. 


block address~—A-Type Address or (2-12) 
specifies the address of the area that contains the 
relative block address, relative track address, or actual 
device address used in the output operation. The length of 
the area depends on the type of addressing used and if the 
oe va option COPTCD=F) is specified in the data control 
ock. 


If OPTCD=F has been specified in the DCB macro and F or X 
1s specified in the WRITE macro, you must provide a 
relative block address in the form specified by OPTCD in 
the DCB macro. For example, if OPTCD=R is specified, you 
must provide a 3-byte relative block address; if OPTCD=A is 
specified, you must provide an 8- byte actual device address 
CMBBCCHHR); if neither is specified, you must provide a 
3-byte relative address CTTR). 
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If OPTCD=F has not been specified in the DCB macro and F or 
X is specified in the WRITE macro, then you must provide an 
8-byte actual device address (MBBCCHHR) even if relative i, 
block or relative track addressing is being used. | A ™ 
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WRITE 
TE~WRIT GICc ECORD BLOCK O ECORDS (BIS 


a The WRITE macro instruction causes the system to add or replace 

pe. a record or replace an updated block in an existing indexed 

| sequential data set. Control may be returned to the problem 
program before the block or record is written. The output 
operation must be tested for completion using a WAIT or CHECK 
macro instruction. A data event control block, shown in 
Appendix A, "Status Information Following an Input/Output 
Operation" on page 192, 1s constructed as part of the macro 
expansion. 


The standard form of the WRITE macro instruction is written as 


follows (the list and execute forms are shown following the 
descriptions of the standard form): 


C[symbol]| WRITE 


yf{area address!" S'} 
»tlengthi'sS 
»ykey Sees 





decbh name——symbol 
specifies the name assigned to the data event control block 
created as part of the macro expansion. 


type—{K]| KN} 


1s coded as shown to specify the type of write operation: 


K 
specifies that either an updated unblocked record or a 
block containing an updated record is to be written. 
If the record has been read using a READ KU macro 
7 instruction, the data event control block for the READ 

d macro instruction must be used as the data event 

( control block for the WRITE macro instruction, using 
the execute form of the WRITE macro instruction. 


KN 
specifies that a new record is to be written, or a 
variable-length record is to be rewritten with a 
different length. All records or blocks of records 
read using READ KU macro instructions for the same 
data control block must be written back before a new 
record can be added, except when the READ KU and WRITE 
KN reference the same DECB. 


dcb address-—A-Type Address or (2-12) 
specifies the address of the data control block for the 
opened existing indexed sequential data set. If a block is 
written, the data control block address must be the same as 
the dcb address operand in the corresponding READ macro 
instruction. 


area address—A-Type Address, (2-12), or 'S' 
specifies the address of the area containing the logical 
record or block of records to be written. The first 16 
bytes of this area are used by the system and should not 
contain your data. The area address must specify a 
different area than the key address. When new records are 
written Cor when variable-length records are rewritten with 
a different length), the area address of the new record 
must always be supplied by the problem program. This area 
may be altered by the system. '"S' may be coded instead of 
an address only if the block of records is contained in an 
area provided by dynamic buffering; that is, 'S' was coded 
for the area address operand in the associated READ KU 
macro instruction. This area is released after execution 
of a WRITE macro instruction using the same DECB. The area 
can also be released by a FREEDBUF macro instruction. 
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The following illustration shows the format of the area: 


Area 
Address | 


Control Logical Record (WRITE KN) or Block 
Program Use| of Records CWRITE K) 





Indexed sequential buffer and work area requirements are 
discussed in e. 


length—symbol, decimal digit, absexp, (2-12) or 'S' 
specifies the number of data bytes to be written, up toa 
maximum of 32760. Specify 'S' unless a variable-length | 
record will be rewritten with a different length. 


key address—A-Type Address or (2-12) 

Specifies the address of the area containing the key of the 
new or updated record. The key address must specify a 
different area than the area address. For blocked records, 
this is not necessarily the high key in the block. For 
unblocked records, this field should not overlap with the 
work area specified in the MSWA parameter of the DCB macro 
instruction. 


Note: When new records are written, the key area may be 
altered by the system. 
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IRITE“—WRI OCK (BPA D_BSA 


co The WRITE macro instruction causes the system to add or replace 

P.O : a block in a sequential or partitioned data set being created or 
updated. Control may be returned to the problem program before 
the block is written. The output operation must be tested for 
completion using the CHECK macro instruction. A data event 
control block, shown in Appendix A, "Status Information 
Following an Input/Output Operation" on page 192, is constructed 
as part of the macro expansion. 


If translation from EBCDIC code to ISCII/ASCII code is 
requested, issuing multiple WRITE macro instructions for the 
same record causes an error because the first WRITE macro 
instruction issued causes the output data in the output buffer 
to be translated into ISCII/ASCII code. 


If the OPEN macro instruction specifies UPDAT, both the READ and 
WRITE macro instructions must reference the same data event 
control block. See the list form of the READ or WRITE macro 
instruction for a description of how to construct a data event 
control block; see the execute form of the READ or WRITE macro 
instruction for a description of modifying an existing data 
event control block. 


The standard form of the WRITE macro instruction is written as 
follows (the list and execute forms are shown following the 
descriptions of the standard form): 


[symbol]] WRITE 


»dcb address 
»yarea address 


Cylength|,'S"] 





as decbh name—symbol 
_— specifies the name assigned to the data event control block 
| created as part of the macro expansion. 
SF 
specifies normal, sequential, forward operation. 


dcb address—A-Type Address, or (2-12) 
specifies the address of the data control block for the 
opened data set being created or processed. If the data 
set is being updated, the data control block address must 
be the same as the dcb address operand in the corresponding 
READ macro instruction. 


area address—A-Type Address or (2-12) 
specifies the address of the area that contains the data 
block to be written; if a key is written, the Key must 
precede the data in the same area. 


length—symbol, decimal digit, absexp, (2-12) or 'S' 
specifies the number of bytes to be written; this operand 
1s specified for only undefined-length records CRECFM=U) or 
for ASCII records CRECFM=D) when the DCB BUFOFF operand is 
zero. For AL tapes, the maximum length is 2048 bytes; 
otherwise, the maximum length is 32760 bytes. 'S' can be 
coded to indicate that the value specified in the block 
size (DCBBLKSI) field of the data control block is used as 
the length to be written. The length operand should be 
omitted for all record formats except format-U and format-D 
(when BUFOFF=0). 


If the length operand is omitted for format-U or format—D 
(with BUFOFF=0) records, no error indication is given when 
the program is assembled, but the problem program must 
insert a length into the data event control block before 
the WRITE macro is issued. 
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WRITE 
WRITE-—“WRIT BLOCK (CREATE A BDAM DATA SET WITH BSAM) 


The WRITE macro instruction causes the system to adda block to 
the direct data set being created. For fixed-length blocks, the 
system writes the capacity record automatically when the current 
track is filled; for variable and undefined-length blocks, a 
WRITE macro instruction must be issued for the capacity record. 
Control may be returned before the block 1s written. The output 
operations must be tested for completion using a CHECK macro 
instruction. A data event control block, shown in 

Appendix A, "Status Information Following an Input/Output 
Operation" on page 192, is constructed as part of the macro 
expansion. 








The standard form of the WRITE macro instruction is written as 
follows Cthe list and execute forms are shown following the 
descriptions of the standard form): 


[symbol]| WRITE decb name 


? type 
»dcb address 


saree area address 
»ylength|,'S'] 
ieee address] 





decbh name—symbol 
specifies the name assigned to the data event control block 
created as part of the macro expansion. 


type— {SF|ISFRISD|SZ} 
is coded as shown, to specify the type of write operation 
performed by the system: 


SF 
specifies that a new data block is to be written in 
the data set. 


SFR 
specifies that a new variable-length spanned record is 
to be written in the data set, and next address 
feedback 1s requested. This operand can be specified 
only for variable-length spanned records (CBFTEK=R and 
RECFM=VS are specified in the data set control block). 
If type SFR is specified, the next address operand 
must be included 


SD 
specifies that a dummy data block is to be written in 
the data set; dummy data blocks can be written only 
when fixed-length records with Keys are used. 


SZ 
| specifies that a capacity record (RO) is to be written 
in the data set; capacity records can be written only 
when variable-length or undefined-length records are 
used. 


cb address—A-Type Address or (2-12) 
specifies the address of the data control block opened for 
the data set being created. DSORG=PS Cor PSU) and MACRF=WL 
must be specified in the DCB macro instruction to create a 
BDAM data set. 


area address~—A-Type Address or (2-12) 

specifies the address of the area that contains the data 
block to be added to the data set. If keys are used, the 
key must precede the data in the same area. For writing 
capacity records (SZ), the area address is ignored and can 
be omitted (the system supplies the information for the 
capacity record). For writing dummy data blocks (SD), the 
area need be only large enough to hold the key plus one 
data byte. The system constructs a dummy Key with the 
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first byte set to all 1 bits €hexadecimal FF) and adds the 
block number in the first byte following the key. When a 
dummy block 1s written, a complete block is written from 
the area immediately following the area address; therefore, 
the area address plus the value specified in the BLKSIZE 
and KEYLEN operands must be within the area allocated to 
the program writing the dummy blocks. 


length—symbol, decimal digit, absexp, (2-12), or 'S' 
1s used only when undefined-length CRECFM=U) blocks are 
being written. The operand specifies the length of the 
block, in bytes, up to a maximum of 32760. If ‘'S' is 
coded, it specifies that the system is to use the length in 
the block size (DCBBLKSI) field of the data control block 
as the length of the block to be written. 


If the length operand is omitted for format-U records, no 
error indication is given when the program is assembled, 
but the problem program must insert a length into the data 
event control block before the WRITE is issued. 


next address—A-Type Address or (2-12) 
specifies the address of the area where the system places 
the relative track address of the next record to be 
written. Next address feedback can be requested only when 
variable-length spanned records are used. 


Note: When variable-length spanned records are used CRECFM=VS 
and BFTEK=R are specified in the data control block), the system 
writes capacity records (RO) automatically in the following 
cases: 


e When a record spans a track. 
e When the record cannot be written completely on the current 
volume. In this case, all capacity records of remaining 


tracks on the current volume are written; tracks not written 
for this reason are still counted in the search limit 
specified in the LIMCT operand of the data control block. 


e When the record written is the last record on the track, the 


remaining space on the track cannot hold more than eight 
bytes of data. 
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COMPLETION CODES FOR WRITE--WRITE A BLOCK (CREATE A BDAM DATA SET WITH BSAM) 


Return 
Code 


00 


04 


08 


oc 


Note: 


After the write has been scheduled and control has been returned 


to the user's program, 


are set to 


return codes: 


Meaning 
Fixed-Length 
CSF or SD) 


Block will be written. 
CIf the previous 
return code was 08, 

a block is written 
only if the DD 
statement specifies 
secondary space 
allocation and 
sufficient space is 
available.) 


Block will be written, 
followed by a capacity 
record. CIf the 
previous return code 
was 08, a block is 
written only if the 

DD statement specifies 
secondary space 
allocation and 
sufficient space is 
available.) 


Block will be written, 
followed by a capacity 
record. The next 
block requires 
secondary space 
allocation. 


Block will not be 
written; issue a 
CHECK macro 
instruction for the 
previous WRITE macro 
instruction, then 
reissue the WRITE 
macro instruction. 


the three high-order bytes of register 15 
0; the low-order byte contains one of the following 


Variable or Undefined-Length 


(SF or SFR) 


Block will be written. 
CIf the previous 
return code was 08, 

a block is written 
only if the DD 
statement specifies 
secondary space 
allocation and 
sufficient space is 
available.) 


Block was not written; 
write a capacity record 
(SZ) to describe the 
current track, then 
reissue the WRITE macro 
instruction. 


Block will not be 
written; issue a 
CHECK macro 
instruction for the 
previous WRITE macro 
instruction, then 
reissue the WRITE 
macro instruction. 


record per track with one track per extent. 


(SZ) 


Capacity record was 
written; another track 
is available. 


Capacity record was 
written. The next 
block requires 
secondary space 
allocation. . This 
code 1s not issued 

if the WRITE SZ is 
the only WRITE macro 
instruction issued on 
a one-track secondary 
extent. | 


Block will not be 
written; issue a 
CHECK macro 
instruction for the 
previous WRITE macro 
instruction, then 
reissue the WRITE 
macro instruction. 


For fixed-length records, the return codes are unpredictable when writing one 


ATE TTT TT aC Tea SA eI STS E SE SSeS SPS SSS SSP ss US sn Sh SSS SSS sl se SS a S/O SO ES OES SSRSDLUSNSSNONNREISSY 
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Hpi dels cnt  aa NE se = P  i Ny 


WRITE 


The list form of the WRITE macro instruction is used to 
construct a data management parameter list in the form of a data 
event control block (DECB). For a description of the various 
fields in the DECB for each access method, see 

Appendix A, "Status Information Following an Input/Output 
Operation™ on page 192 


The description of the standard form of the WRITE macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
the operands used for each access method and the meaning of ‘'S' 
when coded for the area address, length, and key address 
operands. For each access method, 'S' can be coded only for 
those operands for which it can be coded in the standard form of 
the macro instruction. The format description below indicates 
the optional and required operands in the list form only, but 
does not indicate optional and required operands for any 
specific access method. 


The list form of the WRITE macro 1s written: 


[symbol1]]}] WRITE decbh name 


» type 
»EbLdcb address] 
»larea address|'S'] 


rLlengthI'S'] 
»Ckey address] 'S'] 
»Cblock address] 
»Cnext address] 

=L 


»M 





dech name——symbol 
type-——Code one of the types shown in the standard form 
dcb address—-A-Type Address 
area _address—A-Type Address or 'S'! 
lenath—symbol, decimal digit, absexp, or '‘'S' 
key address—A-Type Address or ‘'S' 
block address—A-Type Address 
next _ address—-A-Type Address 
MF=L—-Coded as shown 
specifies. that the WRITE macro instruction 1s used to 


create a data event control block that will be referenced 
by an execute-form instruction. 
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WRITE 
WRITE~~EXECUTE FOR 


A remote data management parameter list (data event control 
block) is used in, and can be modified by, the execute form of 





the WRITE macro instruction. The data event control block can 
be generated by the list form of either a READ or WRITE macro 
instruction. 


The description of the standard form of the WRITE macro 
instruction provides the explanation of the function of each 
operand. The description of the standard form also indicates 
the operands used for each access method and the meaning of 'S' 
when coded for the area address, length, and key address 
operands. For each access method, 'S' can be coded only for 
those operands for which it can be coded in the standard form of 
the macro instruction. The format description below indicates 
the optional and required operands in the execute form only, but 
does not indicate the optional and required operands for any 
specific access method. 


The execute form of the WRITE macro instruction is written as 
follows: 


[symbol]|] WRITE decb ~address 
typ 
»y CYP 
Tacs address] 
ylarea_address|'S'] 


yLlengthI'S'] 
ytkey address|'S'] 
»>Cblock address] 

» (next address] 
»MF=E 





dech address—-RX-Type Address or (2-12) 
type—Code one of the types shown in the standard form 
dcb address-——-RX-Type Address or (2-12) 
area address—RX-Type Address, (2-12), or ‘'S' 
length—symbol, decimal digit, absexp, (2-12), or 'S' 
key address—RX-Type Address, (2-12), or ‘'S' 
block address—RX-Type Address or (2-12) 
next _address—-RX-Type Address or (2-12) 
MF=E—Coded as shown 
specifies that the dveviite form of the WRITE macro 
instruction is used, and an existing data event control 


block (specified in the decb address operand) is to be used 
by the access method. 
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XLATE 
XLATE-—-TRANSLATE TO AND FROM ISCII/ZASCII (BSAM AND QSAM) 


The XLATE macro instruction is used to translate the data in an 
area in virtual storage from ISCII/“ASCII code to EBCDIC code or 
from EBCDIC code to ISCII/ASCII code. 


To determine the ISCII/ASCII to EBCDIC or EBCDIC to ISCII/ASCII 
translation codes, see ANSI X3,26-1980 CAmerican National 
Standard for Hollerith punch card code). When translating 
EBCDIC code to ISCII/ASCII code, all ISCII/ASCII code not having 
an EBCDIC equivalent is translated to X'3F'. When translating 
ISCII/ASCII code to EBCDIC code, all EBCDIC code not having an 
ISCII/ASCII equivalent is translated to X'lA'. Because Version 
3 ISCII/ASCII uses only 7 bits in each byte, bit 0 1s always set 
to Q during EBCDIC to ISCII/ASCII translation and is expected to 
be 0 during ISCII/ASCII to EBCDIC translation. 


The XLATE macro is written: 


[symbol]}| XLATE area address 


edenath 
»TO= TO=CAIE}] 





area address-——RX-Type Address, symbol, decimal digit, absexp, 
(2-12), or (1) 
specifies the address of the area that is to be translated. 


length-——symbol, decimal digit, absexp, (2-12), or (0) 
specifies the number of bytes to be translated. 


TO={A|E} 
specifies the type of translation requested. If this 
operand is omitted, E is assumed. The following describes 
the characters that can be specified: 


A 


specifies that translation from EBCDIC code to 
ISCII/ASCII code is requested. 


specifies that translation from ISCII/ASCII code to 
EBCDIC code is requested. 
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PPEND US INFORMATION FOLLOW _INPUT/OU OPE 0 


Following an input/output operation, the control program makes 
certain status information available to the problem program. 
This information is a 2-byte exception code, or a 16-byte field 
of standard status indicators, or both. 


Exception codes are provided in the data control block CQISAM), 
or in the data event control block CBISAM and BDAM). The data 
event control block is described below, and the exception code 
lies within the block as shown in the illustration for the data 
event control block. If a DCBD macro instruction is coded, the 
exception code in a data control block can be addressed as two 
l-byte fields, eer rant and DCBEXCD2. For more information, see 
Data Facility Product: Customization. 


Status indicators are available only to the error analysis 
routine designated by the SYNAD entry in the data control block. 
A pointer to the status indicators is provided either in the 
data event control block CBSAM, BPAM, and BDAM), or in register 
0 Staal and QSAM). For more information, see Data Facility 
Product: Customization. 


E CO 0 oc 


A data event control block is constructed as part of the 
expansion of READ and WRITE macro instructions and is used to 
pass parameters to the control program, help control. the read or 
write operation, and receive indications of the success or 
failure of the operation. The data event control block is named 
by the READ or WRITE macro instruction, begins on a fullword 
boundary, and contains the information shown in the following 
illustration: 


Field Contents 
Offset from DECB 


Address (Bytes) BSAM and BPAM BISAM BDAM 

0 ECB ECB ECB! 

+4 Type Type Type 

+6 Length Length Length 

+8 DCB address DCB address DCB address 

+12 Area address Area address Area address 

+16 IOB address Logical record IOB address 
address 

+20 Key address Key address 

+24 Exception code Block address 
(2 bytes) 

+28 Next address 


1 The control program returns exception codes in bytes +l and 


+2 of the ECB. 
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APPENDIX B. DATA MANAGEMENT MACRO INSTR TONS AVAILABLE BY ACCESS METHOD 


Macro Instruction BDAM BISAM BPAM BSAM QISAM QSAM 


BLDL X 
BSP 

BUILD X X X 
BUILDRCD 


CHECK 
CHKPT 
CLOSE 
CNTRL 


DCB X X X 
DCBD X X , 


ESETL 


FEOV 
FIND 
FREEBUF 
FREEDBUF 
FREEPOOL 


GET 
GET BUF 
GETPOOL 


MSGDISP 
| NOTE 
( OPEN x x 


PDAB 

PDABD 

POINT x 
PRTOV 

PUT x 
PUTX x 


READ X X X X 
RELEX xX 
RELSE 


SETL 
SETPRT 
STOW 
SYNADAF 
SYNADRLS 
SYNCDEV 


TRUNC 


WAIT X x 
WRITE X X 


XLATE X xX 


>< >*K >< KK >< 
>< *K >< >< * >< 
~ KK >< OK OK 
~< x< MK KKK XX >< >< 
<< ~< 
~< MK KKK <>< 


>< >< 
<< 
<x KX XK XK 
< WK WK X«K 


mK OK OK OK x KM KR KRM 
<< ~ K K KK 
~< mK OK KK OK 


mK << XK 

KK >< 

MK MK OK 

KOS OK < 
~~ KKK OK 


mK 
x X< 
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PPENDI DEVICE CAPACITIES 


The following information provides a guide to coding the block 
size (BLKSIZE) and logical record length CLRECL) operands in the 
DCB macro instruction. These values can be used to determine 
the maximum block size and logical record length for a given 
device, and they can be used to determine the optimum blocking 
factor when records are to be blocked. 


CARD READERS A CARD PUNCHES 


Format F, V, or U records are accepted by readers and punches, 
but the logical record length for a card reader or card punch is 
fixed at 80 bytes. If the optional control character is 
specified, the logical record length is 81 (the control 


character is not part of the data record). If card image mode 
is used, the buffer required to contain the data must be 160 
bytes. 
RIN 

The following table shows the record length that can be 
specified for the various printers. In some cases, two values 
are shown; except for the 3800, the larger of the two values 
requires that an optional feature be installed on the printer 
being used. If the optional control character is specified to 
control spacing and skipping, the record length is specified as 
one greater than the actual data length (the control character 
is not part of the data record). 
Printer | Record Length 
1403 Printer 120 or 132 bytes 
3203 Printer 132 bytes 
3211 Printer 132 or 150 bytes 
3525 Card Punch, 
Print Feature 64 bytes 
3800 Printing Subsystem 136 bytes for 10 pitch 

163 bytes for 12 pitch 

204 bytes for 15 pitch 

AG P T 


3480 Magnetic Tape Subsystem 32760 bytes 
C18 track) 


TREC CCESS_D CES 


The following table shows the capacity of direct access devices 
by track, cylinder, and total capacity in bytes. 
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Device 


2305-2 


3330/3333 
(Model 1) 


3330/3333 
(Model 11) 


3340/3344% 
3350 

3375 

3380 (Models 
AO0G, AAG, and 
B04) 


3380 (Models 
ADG and BDG) . 


3380 (Models 
AEG and BE4) 


PETRIE Sel LSvnfbndhGhUAM/ANUD hOm. U8 4 bdo ne vss ty gs tO MCT POTTY PTGS SP DR oP PY PU PE re 





Maximum Block Number of Track 
Size/Track Tracks per Cylinders Capacity 
(Note 1) Cylinder (Notes l and 2) (Bytes) 
14660 8 96 148586 
13030 19 G04 131656 
13030 19 808 131656 
8368 12 696 85356 
19069 30 555 192546 
327605 12 959 36000° 
327605 15 885 479686 
327605 15 885 479686 
327605 15 1770 47968° 


Capacity indicated in bytes (when RO is used by the IBM 
programming system). 


Excludes alternate cylinders. 


The Mass Storage System (MSS) virtual volumes assume the 
characteristics of the 3330/3333, Model l. 


The 3344 is functionally equivalent to the 3340 Model 70. 


The largest record that can be written on a track for the 
3375 is 35616 and for all 3380 models is 47476. However, 
for these devices the largest block size supported by the 
standard access methods is 32760. 


This value is different from the maximum block size per 
track because each block on the track includes an overhea 
for this device. 


Each record written on a direct access device requires some 
"device overhead.' The term device overhead means the space 


required by the device for address markers, 
between the count, 


count areas, gaps 


d 


key, and data areas, and gaps between blocks. 


The following calculations can be used to compute the number of 
bytes required for each data block including the space required 


for device overhead. 
1gnored. 
bytes, 


Note that any fraction of a byte must b 
For example, if the calculation results in 15.644 
15 bytes must be used to determine track capacity. 
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Device 
2305-2 


3330/3333 (Model 1 or 
11)4 


3340/3344 

3350 

3375 

3380 (Models A004, AAG, 
and B04) 

3380 (Models AD4 and BD4) 


3380 (Models AE4 and BEG) 


: KL 
7 DL 


Blocks 
With Keys 


289+KL4+DL2 
191+KL+DL 


2424+KL+DL 
267+KL+DL 


2244+ (CC KL4191)732)032)+ 
C(CDL4+191)732)032) 


2564+((KL4+267)732)(32)+ 
(CDL+267)/32)(32) 


2564+ CCKL4+267)732)032)+ 
(CDL4+267)732)032) 


2564+0CKL4+267)/32)032)+ 
(CDL+267)732)032) 


is key length. 


is data length. 


Blocks 
Without Keys 


198+DL 
135+DL 


aan 
t 
ed 


167+DL 
185+DL 
224+ 0 CDL4+191)732)032) 


256+CCDL4+267)732)032) 


256+CCDL4+267)/32)032) 


256+CCDL+267)/732)032) 


3 The Mass Storage System (MSS) virtual volumes assume the 
characteristics of the 3330/3333, Model l 


When track overflow is used or variable-length spanned records 


are written, 


the size of a data block or logical record can 


exceed the capacity of a single track on the direct access 
device used. 
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PPEND D CB 


co S 


The following shows the format and contents that must be 
supplied by the problem program when the EXLST operand is 


‘specified in a DCB macro instruction. 


The exit list must begin 


on a fullword boundary and each entry in the list requires one 





fullword. 

Hex 
Entry Type Code 
Inactive entry 00 
Input header label exit 01 
Output header label 02 
exit 
Input trailer label 03 
exit 
Output trailer label 04 
exit 
Data control block exit 05 
End-of-volume exit 06 
JFCB exit 07 

08 
I/O error processing 09 
exit 
User totaling area OA 
Block count exit OB 
Defer input trailer 0C 
label 
Defer nonstandard input OD 
trailer label 

OE-OF 
FCB image 10 
DCB abend exit ll 
QSAM parallel input 12 
Allocation retrieval 13 
list 

14 
JFCBE exit 15 

16 





3-Byte Address-~Purpose 


Ignore the entry; it 1s not active. 
Process a user input header label. 


Create a user output header label. 
Process a user input trailer label. 
Create a user output trailer label. 


Take a data control block exit. 

Take an end-of-volume exit. 

JFCB address for RDJFCB and OPEN TYPE=J SVCs. 
Reserved. 


User option to process I/0 errors. 


Address of beginning of user's totaling area. 
Take a block-count~unequal exit. 


Defer processing of a user input trailer label from 
end-of-data until closing. 


Defer processing a nonstandard input trailer label 
on magnetic tape unit from end-of-data until 
closing no exit routine address). 

Reserved. 

Define an FCB image. 


Examine the abend condition and select one of 
several options. 


Address of the PDAB for which this DCB is a member. 


Retrieve allocation information for one or more 
data sets with RDJFCB. 


Reserved. 

Take an exit during OPEN to allow user to examine 
JCL=specified setup requirements for a 3800 
printer. 


Reserved. 
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Hex 
Entry Type Code 3-Byte Address-~Purpose 


Vi 
& 


OPEN’EOV nonspecific 17 Option to specify a tape volume serial number. 
tape volume mount | 


OPEN“EOV volume 18 Verify a tape volume and some security checks. 
security/verification 


19-7F Reserved. 


Last entry 80 Treat this entry as the last entry in the list. 
This code can be specified with any of the above 
but must always be specified with the last entry. 


The list can be dynamically shortened during execution by 
setting the high-order bit of the word to a value of 1. An 
entry in the list can be made inactive dynamically by setting 
the high-order byte of the word to a value of hexadecimal 00. 


When control is passed to an exit routine, the general registers 
contain the following information: 


Register Contents 


0 Variable; the contents depend on the exit routine 
used. | | 
1 The three low-order bytes contain either the address 


of the DCB currently being processed or, when certain 
exits are taken, the address of the exit parameter 
list. These exits are: user-label exits (X'01'-'04'"), 
deferred nonstandard input trailer exit (X'0D'), and 
DCB abend exit CX'L1'). 


2-13 Contents prior to execution of the macro instruction. 

14 Return address (must not be altered by the exit 
routine) 

15 Address of the exit routine entry point. 

The conventions for saving and restoring registers are as 

follows: 

e The exit routine must preserve the contents of register 14. 


It need not preserve the contents of other registers. The 
control program restores registers 2 through 13 before 
returning control to the problem program. 


e The exit routine must not use the save area whose address 18 
in register 13, because this area is used by the control 
program. If the exit routine calls another routine or 
issues supervisor or data management macro instructions, it 
must provide the address of a new save area in register 13. 


For a detailed description of each exit list processing option, 


see Data Administration Guide 
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APPENDIX E, CONTROL CHARACTERS 


MACHINE CODE 





Each logical record, in all record formats, can contain an 
optional control character. This control character is used to 
control stacker selection on a card punch or card read punch, or 
it is used to control printer spacing and skipping. If a record 


containing an optional control character is directed to any 


other device, it 1S considered to be the first data byte, and it 
does not cause a control function to occur. 


In format-F and format-U records, the optional control character 
must be in the first byte of the logical record. 


In format-V or format-D records, the optional control character 
must be in the fifth byte of the logical record, immediately 
following the record descriptor word of the record. 


Two control character options are available. A control 
character option is selected by coding the appropriate character 
in the RECFM operand of the DCB macro instruction. If either 
option is specified in the data control block, a control 
character must be included in each record, and other spacing or 
stacker selection options also specified in the data control 
block are ignored. 


The record format field in the data control block indicates that 
the machine code control character has been placed in each 
logical record. If the record is written, the appropriate byte 
must contain the command code bit configuration specifying both 
the write and the desired carriage or stacker select operation. 
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The machine code control characters for a printer are: 


Print——Then Act Immediately 7 
Act Action Without Printing —_—, 
X'O1' Print only (no | Soy 
| space) 

X'09! Space 1 line X"OB! 

X"11" Space 2 lines X13! 

x'19'° Space 3 lines X"1B! 

X'89! Skip to channel 1 X'8B! 

X'9]! Skip to channel 2 X*93!° 

Xr99% Skip to channel 3 X'OB! 

X*Al! Skip to channel 4 X"A3! 

X"AQ! Skip to channel 5 X"AB! 

X'Bl! Skip to channel 6 X*B3! 

X'BO! Skip to channel 7 X'BB* 

X*'cl1! Skip to channel 8 X*C3! 

X'C9! Skip to channel 9 X*CB* 

X*D1' Skip to channel 10 X'*D3' 

X'D9! Skip to channel 11 X"DB! 

X'El? Skip to channel 12 ATES* 


The machine code control characters for a card read punch device 
are as follows: 


Control Code Action 

X'Ol! Select stacker 1 

X'q]! Select stacker 2 

X'5At2 Change from line 
mode to page mode 

X'8l' select stacker 3 


1 The 3800 Model 3 all-points-addressable mode uses this code 
to change from compatibility to page mode. 


Other command codes for specific devices are contained in IBM 
System Reference Library publications describing the control 
units or devices. 
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Se 
te Z 
‘ eee 


$07 / CONTRO ARAC S 


In place of machine code, control characters defined by the 
International Organization for Standardization (150), American 
National Standards Institute CANSI), or the Federal Information 
Processing Standards (FIPS) can be specified. These characters 
must be represented in EBCDIC code. ; 


International Organization for Standardization CISO), American 
National Standards Institute CANSI), or Federal Information 
Processing Standards (FIPS) control characters are as follows: 


Code Action before Printing a Line 
b Space one line (blank code) 
0 Space two lines 


Space three lines 
Suppress space 
Skip to channel 
Skip to channel 
Skip to channel 
Skip to channel 
Skip to channel 
Skip to channel 


Skip to channel 


oOo nN BO UW HR WwW Ne 


Skip to channel 


oO 


Skip to channel 
Skip to channel 10 
Skip to channel 11 
Skip to channel 12 


QO ww PP wOohlUlUrrOlmlUhLGNMCUNMULUMhOFhU NUN UDO Ot 


Code Action after Punching a Card 

V Select punch pocket 1 

W Select punch pocket 2 

X*5A"1 Change from line mode to page mode 


1 The 3800 Model 3 all-points-~addressable mode uses this code 
to change from compatibility to page mode. 


These control characters include those defined by ANSI FORTRAN. 
If any other character is: specified, it is interpreted as 'b* or 
eeareeite ae on the device being used; no error indication is 
returned. 
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PPENDI DATA CONTROL BLOCK SYMBOLIC FIELD NAMES 


The following describes data control block fields that contain 
information that defines the data characteristics and device 
requirements for a data set. Each of the fields described shows 
the values that result from specifying various options in the 
DCB macro instruction. These fields can be referred to by the 
problem program through the use of a DCBD macro instruction that 
creates a dummy control section (DSECT) for the data control 
block. Fields that contain addresses are 4% bytes long and are 
aligned on a fullword boundary. If the problem program inserts 
an address into a field, the address must be inserted into the 
Boerne 3 bytes of the field without changing the high-order 
yte. 


The contents of some fields in the data control block depend on 
the device and access method being used. A separate description 
1s provided when the contents of the field are not common to all 
device types and access methods. 
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DA co 


( Offset 


26C1A) 


40(28) 
40628) 
42(02A) 


45(2D) 


48(30) 


50032) 





2 TT TOL 





OL. BLOCK-—COMMO 


Bytes and 
Alignment 


2 





Field 
Name 


DCBDSORG 


DCBDDNAM 


DCBTIOT 


DCBMACRF 


DCBDEBA 


DCBOFLGS 
seid “Se tick 


om 


DCBMACR 
(Before 
OPEN) 


Description 


Data set organization. 


Code 
IS Indexed sequential. 
PS Physical sequential. 
DA Direct organization. 
Reserved bits. 
PO Partitioned organization. 
U Unmovable—the data set contains 


location-dependent information. 


Eight-byte name of the data definition 
statement that defines the data set associated 
with this DCB. (Before DCB is opened.) 


CAfter DCB is opened.) Offset from the TIOT 
origin to the TIOELNGH field in the TIOT entry 
for the DD statement associated with this DCB. 


This field may only be referenced during 
and after OPEN. It is common to all uses 
of the DCB and is created by moving the 
DCBMACR field into this area. 


(After DCB is opened.) Address of the 
associated DEB. 


Flags used by open routine. 

OPEN has completed successfully. 

Set to 1 by problem program to indicate 
concatenation of unlike attributes. 

Set to 0 by an I40 Support function when 
that function takes a user exit. It is 

set to 0 to inhibit other I/O support 
functions from processing this DCB. 

Set to 1 on return from the user exit to 
the I/0 support function that took the exit. 


Macro instruction reference before OPEN. 
Major macro instructions and various options 
associated with them. Used by the open 
routine to determine access method. Used by 
the access method executes in conjunction 
with other parameters to determine which load 
modules are required. This field 1S moved to 
overlay part of DCBDDNAM at open time and 
becomes the DCBMACRF field. 


This field is common to all uses of the DCB, 
but each access method must be referenced for 
its meaning. 
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DA CONTRO 


Offset 
20(14) 


21¢€15) 
24018) 


32020) 


32¢20) 


33021) 


LOCK=“BPA BSA 


Bytes and Field 
Alignment Name 


J 


DCBBUFNO 


DCBBUFCB 
DCBBUFL 

DCBBFALN 
Pee “OX 


..10 
Ol 


DCBBFTEK 
. XXX 
re Ore! 
110 


010 


DCBEODAD 


SA 


Description 


Number of buffers required for this data set. 
May range from 0 to a maximum of 255 


Address of buffer pool control block. 


Length of buffer. May range from 0 to a 
maximum of 32760. 


Buffer Alignment: 
Reserved bits. 

D Doubleword boundary. | 

F Fullword not a doubleword boundary, 
coded in the DCB macro instruction. 


Buffering technique: 
Reserved bits. 

S Simple buffering. 

A QSAM locate mode processing of spanned 
records: OPEN is to construct a record 
area if 1t automatically constructs 
buffers. 


R BSAM create BDAM processing of unblocked 
spanned records: Software track | 
overflow. OPEN forms a segment work 
area pool and stores the address of the 
segment work area control block in 
DCBECBW. However, WRITE uses a 
segment work area to write a record as 
one or more segments. 


BSAM input processing of unblocked 
spanned records with keys: Record offset 
processing. READ reads one record 
segment into the record area. The first 
segment of a record 1s preceded in the 
record area by the key. Subsequent 
segments are at an offset equal to the 
key length. 


Reserved bit. 


XLRI being used to process a RECFM=DS or 
RECFM=DBS format tape data set (QSAM). 


End-of-data address. Address of a 
user-provided routine to handle end-of-data 
conditions. 
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a, 


~ g 


Bytes and Field 
Offset Alignment Name 


( - 36(24) 1 
37(25) 3 
G2(2A) 2 

( 50032) ..2 
51033) 


SE A ee Ee ELE EEE LEY SN LS TE 


DCBRECFM 
001. 
Pes 
O1l.. 
Tle: 
Ses 
a 
ee 
me ae 
.O1 


DCBEXLST 


DCBMACRF 


DCBMACR 
(Before 
OPEN) 


00. 


Description 
Record format. 


Code 

Format-D record. 

Fixed record length. 

Variable record length. 

Undefined record length. 

Track overflow. 

Blocked records. May not occur with 
undefined (U). 

Fixed length record format: Standard 
blocks. (No truncated blocks or 
unfilled tracks are embedded in the 
data set.) Variable length record 
format: Spanned records. 
ISO/ANSI/FIPS control character. 
Machine control character. 

No control character. 

Key length CKEYLEN) was specified 
in the DCB macro instruction. This 
bit 1s inspected by the Open to 
prevent overriding a specification 
of KEYLEN= 0 by a nonzero specifi- 
cation in the JFCB or data set 
label. 


HA waAaccinye 


=> 


Exit list. Address of a user-provided exit 
list control block. 


Macro instruction reference after OPEN. . 


Contents and meaning are the same as those of 
the DCBMACR field in the foundation segment 
before OPEN. 


Major macro instructions and various options. 
associated with them. Used by the Open 
routine to determine access method. Used by 
the access method executes in conjunction 
with other parameters to determine which load 
modules are required 


Code 
BSAM—Input 
Always zero for BSAM. 
R READ 
Reserved bits. 
POINT which implies NOTE). 
CNTRL 


BSAM—Output 

Always zero for BSAM. 

WRITE 

Load mode BSAM Ccreate BDAM data 
set). 

POINT (which implies NOTE). 

CNTRL 

BSAM create BDAM processing of 
unblocked spanned records, with 
BFTEK=R specified: The user's program 
has provided a segment work area pool 
and stored the address of the segment 
work area control block in DCBEOBNW. 


Ov 


Ov r= 
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Offset 


50032) 


51033) 


50032) 


51033) 


DIRECT 


Offset 
16(¢€10) 
17¢€11) 
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Bytes and Field 


Alignment Name Description 


Byte l 
Orne <i 


poi 
oors @ 


— 
ooOrsa VU 


— 
“U7 


ACCESS STORAGE DEVICE INTERFACE 


Bytes and Field 


QSAM—Input 


Always zero for QSAM. 
GET. 


Always zero for QSAM. 


Move mode. 
Locate mode. 
CNTRL 

Data mode. 


QSAM—Output 


Always zero for QSAM. 


PUT 


Always zero for QSAM. 


Move mode. 
Locate mode. 
CNTRL 

Data mode. 


BPAM—Input 


Always zero for BPAM. 


READ 
POINT Cwhich implies 
Reserved bits. 


BPAM—Output 


Always zero for BPAM. 


WRITE 


NOTE). 


POINT (which implies NOTE). 


Reserved bits. 


Alignment Name Description 


1 DCBKEYLE 


wl DCBDEVT Device type. 


0010 O11] 2305 Disk Storage Facility, 

0010 1001 3330 Disk Storage, Model l 
Mass Storage System (MSS) 
virtual volume. 


0010 
0010 


0010 
0010 


1101 3330 Disk Storage, 
1010 3340/3344 Disk Storage. 
0010 41011 3350 Direct Access Storage. 
1100 
1110 


Key length of the data set. 


a 


3375 Direct Access Storage. 
3380 Direct Access Storage. 


Macro Instruction Reference 


Model 2. 
or 


Model ll. 








ce nmenmn eo EY ThA BARE, SOR CEE EE ET LET TERT ERE cheae dom 


MAGNETIC TAPE INTERFACE 


- Bytes and Field 
Offset Alignment Name Description 
16¢10) 1 DCBTRTCH Tape recording technique for 7-track tape. 
| Code 
0010 0011 E Even parity. 
0011 41011 T BCD/EBCDIC translation. 
0001 0O011 Cc Data conversion. 
0010 41011 ET Even parity and translation. 
17¢1l1l) = «./] DCBDEVT Device type. 
1000 0011 3400 series magnetic tape unit. 
1000 1000 3480 Magnetic Tape Subsystem 
18¢12) =«..I1 DCBDEN Tape density~—3400 series magnetic tape 
units. 
Code 7-track 9-track 18-track 
0100 0011 l 556 BPI NZA NZA 
1000 dOOoll 2 800 BPI 800 BPI NZA 
1100 0011 3 N/A 1600 BPI NZA 
1101 0011 G N/A 6250 BPI N/A 
CARD READER, CARD PUNCH INTERFACE 
Bytes and Field ; 
| Offset Alignment Name Description 
( | 16¢10) 1 DCBMODE, DCBSTACK 
Code 
1000 Cc Column binary mode. 
0100 E EBCDIC mode. 
ite “JOOS? Stacker selection. 
0001 1 Stacker 1. 
0010 2 Stacker 2. 
0011 3 Stacker 3. 
1711) — 1 DCBDEVT Device type. 
0100 0do00dl 2540 Card Reader 
0100 0010 2540 Card Punch 
0100 0100 2501 Card Reader 
0100 0110 3505 Card Reader 
0100 1100 3525 Card Punch 


PRINTER INTERFACE 
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Bytes and Field 
Offset Alignment Name 


16¢10) 1 ' DCBPRTSP 
0000 90000 
0000 0001 
0001 0001 
0001 1001 
17C1ll) = .2 DCBDEVT 
Byte 0 
0100 1000 
0100 1001 
0100 1011 
0100 1110 
Byte l 
0010 0000 
0001 0000 
19¢13) = =.«..1 DCBPRBYT 
xXXX sare 
ll 
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Description 


Number indicating normal printer spacing. 


Code 

0 No spacing. 

1 Space one line. 

2 Space two lines. 

3 Space three lines. 


Device type. 


1403 Printer 
3211 Printer 
3203 Printer 
3800 Printing Subsystem 


Test-for-printer-overflow mask CPRTOV 
mask). If printer overflow is to be 
tested for, the PRTOV macro instruction 
sets the mask as follows: 


Code 

9 Test for channel 9 overflow. 
12 Test for channel 12 overflow. 
Reserved. 


Bits to identify presently active table 
reference character when 3800 printer is 
operating under OPTCD=J. 
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ACCESS METHOD INTERFACE 





BSAM, BPAM Interface 


Bytes and Field 


Offset Alignment Name Description 
52034) 1 DCBOPTCD Option codes. 
Code 
c ere Sic W Write-validity check CDASD). 
7a Ieee erat U Allow a data check caused by an invalid 


character. (14903 printer with UCS 
feature.) 
Window processing requested. (MSS) 


B Treat EOF and EOV labels as EOV labels 
which allows SL or AL tapes to be read 
out of order. (Magnetic tape.) 

pe beratnce C Chained scheduling. 


Input Tape Files: Requests the 
testing for and bypassing of any 
embedded DOS checkpoint records 
encountered. (This code can only 
be specified ina JCL statement.) 
An ISCII/ZASCII data set is 

‘to be processed. 

Magnetic tape devices: Use reduced 
error recovery procedure. 

BSAM only: user totaling. 
Specifies that the first data byte 
in the output data line will be a 
3800 table reference character for 
dynamic selection of character sets. 


-_ 57039) = .3 DCBSYNAD Address of user's synchronous error 
routine to be entered when a permanent 
error occurs. 


62(03E) ..2 DCBBLKSI Maximum block size. Maximum value: 32760. 
The maximum block size for Version 3 ISO/ANSI/FIPS 
is 2048. An attempt to process from a Version 
3 tape results ina label validation installation 
exit being taken. 


oot 
jo4 N £© 


For fixed-length blocked record format, it 
must be a multiple of the length given in 
DCBLRECL. For variable-length records, this 
must include the G-byte block length field. 


For more information about ISO/ANSI/FIPS 
spanned records, see 
ata Administration Gui ; 


720468) =] DCBNCP Number of channel programs. Number of 


READ or WRITE requests that may be issued 
prior to a CHECK. Maximum number: 99. 
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Offset 
80050) 


81051) 
82052) 
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Bytes and 
Alignment 


] 


Field 
Name 


DCBUSASI/ 
DCBLBP 


om 


DCBBUFOF 
DCBLRECL 


Description 


ISCII/ASCII tape. 
Block prefix. 


Block prefix 15 a G-byte field containing 


the block length. 


Block prefix length. 


Logical record length. For fixed-length 
blocked record format, the presence of 
DCBLRECL allows BSAM to read truncated 


records. For undefined records, 
contains block size. 
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Description 
Option codes. 
Code 
W 


Write-validity check CDASD). 
U Allow a data check for an invalid 


character. (14903 printer with UCS 
feature.) Window processing requested. 
(MSS) 

B Treat EOF and EOV labels as EOV 


labels, which allows SL or AL tapes 
to be read out of order (magnetic 


tape). 
C Chained scheduling. 
H Input Tape Files: Requests the 


testing for and bypassing of any 
embedded DOS checkpoint records 
encountered. (This code can only 
be specified ina JCL statement. ) 
Q An betaine data set is to 
be processed 
Same as DCBOPTQ. BSAM only. 
Zz Magnetic tape devices. Use reduced 
error recovery procedure. 
User totaling. 
Specifies that the first data byte in 
the output data line will be a 3800 
table reference character. 


i 


Address of the user's synchronous error 
routine to be entered when a permanent error 
occurs. 


Maximum block size. Maximum value: 32760. 

The maximum block size for Version 3 ISO/ANSI/FIPS 
1s 2048. An attempt to process from a Version 

3 tape results ina label validation installation 
exit being taken. 


For fixed-length blocked record format, 
it must be a multiple of DCBRECL. For 
variable-length records this must include 
the G-byte block length field provided by 
the access method. 


ISCII/ASCII tape. 
Block prefix. 


Block prefix is a G-byte field containing 
the block length. CBUFOFF=L was specified). 


Block prefix length. 
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Bytes and Field 
Offset Alignment Name 


we 


DCBLRECL 


DCBEROPT 


100. 
010. 


001. 


0 eM KKKK 


DCBCNTRA 


DCBPRECL 


DCBEOB 


‘Description 


Format-F records: Record length. 
Format-U records: Block size. 
Format-V records — 
e Unspanned record format — 
GET: PUTX; record length. 
PUT: Actual or maximum record length. 
e Spanned record format — 
_ Locate mode — 
— GET: Segment length. 
— PUT: Actual or minimum segment 
length. 
Logical record interface — 
— Before OPEN: Maximum logical record 
length. 
—- After GET: Record length. 
—- Before PUT: Actual or maximum | 
record length. 
—- ISO/ANSI/FIPS spanned record format 


with XLRI; length of the record area 


in 'K' units (1024). 

Move mode -—— 

—- GET: Record length. 

— PUT: Actual or maximum record 
length. 

e Data nodes GET — | 
Data records up to 32752 bytes: Data 
length. 

Data records exceeding 32752 bytes: 
—- Before OPEN: xX*'8000'! 
—- After OPEN: Data length. 

e OQutput mode, PUTX Coutput data set): 

Segment length. 


Error option. Disposition of permanent 
if the user returns from a synchronous 
exit CDCBSYNAD), or if the user has no 
synchronous error exit. 


ACC: Accept. 

SKP: Skip. 

ABE: Abnormal end of task. 
Reserved bits. 

Address of CNTRL module. 
Reserved. 


Block length, maximum block length, or 
data length. 


Address of end of block module. 
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DCBEODAD 


DCBRECFM 


et bet Rs 
- HOO 


DCBEXLST 
DCBMACRF 
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Description 
Key length. 
Device type. 


2305 Disk Storage Facility, Model 2. 
3330 Disk Storage, Model 1, or 

Mass Storage System (MSS) 

virtual volume. 
3330 Disk Storage, Model ll. 

3340 Disk Storage. 

3350 Direct Access Storage. 

3375 Direct Access Storage. 

3380 Direct Access Storage, all models. 


Number of buffers required for this data set: 
0-255. 


Address of buffer pool control block. 
Length of buffer: 0 - 32760 bytes. 


Buffer alignment: 


Code 
Reserved bits. 
D Doubleword boundary. 
F Fullword not a doubleword boundary, 
coded in the DCB macro instruction. 
F Fullword not a doubleword boundary, 


coded in the DD statement. 


Address of a user-provided routine to handle 
end-of-data conditions. 


Record format. 


Code 

F Fixed length records. 

V Variable length records. 

U Undefined length records. 

T Track overflow. 

B Blocked records. 
undefined (CU). 

S Standard records. No truncated blocks 
or unfilled tracks are embedded in the 
data set. 


May not occur with 


A ISO/ANSI/FIPS control character. 

M Machine control character. 
No control character. 
Key length CKEYLEN) was specified in 
the DCB macro instruction; this bit 1s 
inspected by the open routine to prevent 
overriding a specification of KEYLEN=0 
by a nonzero specification in the JFCB 
or data set label. 

Exit last. Address of a user-provided list. 


Macro instruction reference after OPEN: 


Contents and meaning are the same as those 
of the DCBMACR field before OPEN. 
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Description 


Macro instruction reference before OPEN: 
specifies the major macro instructions and 


various options associated with them. Used 
by the Open routine to determine access 
method. Used by the access method executors 


in conjunction with other parameters to 
determine which load modules are required. 


Code 


BISAM 
Always zero for BISAM. 
R READ 
S Dynamic buffering. 
C CHECK 
Reserved bit. 
BISAM 
Always zero for BISAM. 
WRITE 
QISAM 
Always zero for QISAM. 
G GET 
M Move mode of GET. 
L Locate mode for GET. 
Reserved bits. 
QISAM 
S SETL 
P PUT or PUTX. 
Always zero for QISAM. 
M Move mode of PUT. 
L Locate mode of PUT. 
U Update in place (PUTX). 
K SETL by key. 
I SETL by ID. 


Option codes: 


Code 

W Write-validity check. 

U Full-track index write. 

M Master indexes. 

I Independent overflow area. 
Y Cylinder overflow area. 

L Delete option. 

R Reorganization criteria. 


Reserved bit. 
Extension of the DCBMACRF field for ISAM. 


Code 
Reserved bits. 


U Update for read. 
U Update type of write. 
A Add type of write. 


Number of tracks that determines the 
development of a master index. 
Maximum permissible. value: 99. 


The number of tracks to be reserved on each 
prime data cylinder for records that overflow 
from other tracks on that cylinder. To 
determine how to calculate the maximum number, 
see the section on allocating space for an 


ISAM data set in Data Administration 
Guide 


Macro Instruction Reference 
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Offset 
56038) 
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DCBSYNAD 


DCBRKP 


DCBBLKSI 
DCBMSWA 


DCBSMSI 


DCBSMSW 


DCBNCP 


DCBMSHI 


DCBEXCD1 


DCBEXCD2 


o KKK 


DCBLRECL 


Description 


Address of user's synchronous error routine 
to be entered when uncorrectable errors are 
detected in processing data records. 


Relative position of the first byte of the 
key within each logical record. Maximum 
permissible value: logical record length 
minus key length. 


Block size. 


Address of the storage work area reserved for 
use by the control program when new records 
are being added to an existing data set. 


Number of bytes in area reserved to hold the 
highest level index. 


Number of bytes in work area used by control 
program when new records are being added to 
the data set. 


Number of copies of the READ-WRITE Ctype K) 
channel programs that are to be established 
for this data control block (99 maximum). 


Address of the storage area holding the 
highest level index. 


Farst byte in which exceptional conditions 
detected in processing data records are 
reported to the user. 


Lower Key limit not found. 

Invalid device address for lower limit 

CQISAM only). Record length check CBISAM only). 
Space not found. 

Invalid request. 

Uncorrectable input error. 

Uncorrectable output error CBISAM only). 

Block could not be reached CBISAM only). 

Block could not be reached Cinput) CQISAM only). 
Overflow record CBISAM only). 

Block could not be reached Cupdate) CQISAM only? 
Duplicate record CBISAM only) 


Second byte in which exceptional conditions 
detected in processing data records are 
reported to the user (CQISAM only). 


Sequence check. 

Duplicate record. 

DCB closed when error was detected. 
Overflow record. 

PUT: length field of record larger than 
length indicated in DCBLRECL. 

Reserved bits. 


Logical record length for fixed-length record 
formats. Variable-length record formats: 
maximum logical record length or an actual 
logical record length changed dynamically 

by the user when creating the data set. 
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197¢€C5) = .1 DCBOVDEV 
0000 0111 
0000 1001 
0000 41101 
0000 1010 
0000 41011 
0010 1100 
0010 1110 
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Description 


Device type for independent overflow. 


2305 Disk Storage Facility, Model 2. 
3330 Disk Storage, Model 1, or 

Mass Storage System (MSS) 

virtual volume. 

3330 Disk Storage, Model 1l. 
334073344 Disk Storage. 

3350 Direct Access Storage. 

3375 Direct Access Storage. 

3380 Direct Access Storage. 


Macro Instruction Reference 
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DCBBUFL 
DCBBFALN 
XxX 
.O1 
-1l 
pe, a, oe 
DCBBFTEK 


es 
Saes 


DCBRECFM 
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Description 
Key Length. 


Number of relative tracks or blocks in this 
data set. 


Number of buffers required for this data set. 
May range from 0 to 


Address of buffer pool control block or of 
dynamic buffer pool control block. 


Length of buffer. May range from 0 to 32760. 
Buffer alignment: 


Reserved bits 

Doubleword boundary. 

Fullword not a doubleword boundary, coded in 
the DCB macro instruction. 

Fullword not a doubleword boundary, coded in 
the DD statement. 

Reserved bits. 


Buffering technique. 


Reserved bit. 

R Unblocked spanned records: 
Variable spanned record format. 
Open forms a segment work area pool. 
The number of segment work areas 
is determined by DCBBUFNO COPEN 
stores the address of the segment 
work area control block in DCBDYNB 
if dynamic buffering is not 
used or in the dynamic buffer pool 
control block (see DCBBUFCB) if 
dynamic buffering is used. WRITE uses 
a segment work area to write a record 
as one or more segments. READ uses a 
segment work area to read a record that 
was written as one or more segments. 


Record format. 


Code 

F Fixed record length. 

V Variable record length. 

U Undefined record length. 

T Track overflow. 

B Blocked Callowed only with V). 
S Spanned (allowed only with V). 


Always zeros. 

Key length CKEYLEN) was specified in 
the DCB macro instruction. This bit 
1S inspected by the open routine to 
prevent overriding a specification of 
KEYLEN=0 by a nonzero specification 
in the JFCB or data set label. 


Exit list. Address of a user-provided exit 
list control block. 
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Bytes and Field 
Offset Alignment Name © 


G2(02A) ..2 DCBMACRF 
50°32) ..2 DCBMACR 
Byte l] 
50¢€32) 00.. ‘ 
a : 
cake 3 
ee. 


51¢33) 00 


52034) 1 DCBOPTCD 


56038) 4 DCBSYNAD 
62(03E) ..2 DCBBLKSI 
81051) .3 DCBLIMCT 


Description 
Macro instruction reference after OPEN. 


Contents and meaning are the same as 
DCBMACR before OPEN. 


Macro instruction reference before OPEN: | 
major macro instructions and various options 
associated with them that will be used. 


Code 

Always zero for BDAM. 

READ 

Key segment with READ. 

ID argument with READ. 

System provides area for READ Cdynamic 
buffering). 

Read exclusive. 

CHECK macro instruction. 


O-K DANARDW 


Code 

Always zero for BDAM. 

WRITE 

Key segment with WRITE. 

ID argument with WRITE. 

Reserved bit. 

Add type of WRITE. 

Unblocked spanned records, with 
BFTEK=R specified and no dynamic 
buffering: The user's program 
has provided a segment work area 
pool and stored the address of 
the segment work area control 
block in DCBDYNB. 


> HAS 


Option codes: 


Code 

W Write-validity check. 
Track overflow. 

E Extended search. 

F Feedback. 

A Actual addressing. 
Dynamic buffering. 
Read exclusive. 

R Relative block addressing. 


Address of SYNAD (synchronous error) 
routine. 


Maximum block size. 


Number of tracks or number of relative blocks 
to be searched Cextended search option). 
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APPENDIX G. PDABD SYMBOLIC FIELD NAMES 


The following describes PDABD fields of the dummy control 
section generated by the PDABD macro instruction. Included are 
the names, attributes, and descriptions of the dummy control 
section. The use of any of the symbolic names provided by the 
dummy section should be preceded by a USING instruction 
specifying IHAPDAB and a dummy section base register containing 
the address of the actual parallel data access block. 


PDABD 
IHAPDAB DSECT 
PDANODCB DS H Number of DCB addresses in list 
PDAMAXCB DS H Maximum number of addresses allowed 
PDAGRTNA DS A Address of parallel GET routine 
PDADCBAI DS F DCB address increment 
PDADCBLA DS A Address of last DCB entry 
PDADCBEP DS A Address of DCB entry last processed 
PDAECBIX DS oF Index to ECB list 
PDADCBAL EQU ¥ Start of DCB list 
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GLOSSARY O ERMS AND ABBREVIATIONS 


The following terms are defined as they 
are used in this book. If you do not 
find the term you are looking for, refer 
to the index or to the IBM Vocabulary 
for Data Processing, Telecommunications, 
and Office Systems, GC20-1699. 


ABE. abnormal end (value of EROPT) 
ABEND. abnormal end (macro instruction) 
ABSTR. absolute track (value of SPACE) 


ACC. accept erroneous block (value of 
EROPT) 


access method. A technique for moving 
data between main storage and 
input/output devices. 


address marker. A byte of data ona 
disk or diskette, used to identify the 
data field and ID field in the record. 


AFF. affinity (channel separation 
parameter of DD statement or unit 
affinity value of UNIT? 


AL. American National Standard Labels 
(Value of LABEL). 


alias. (1) An alternate label. For 
example, a label and one or more aliases 
may be used to refer to the same data 
element or point in a computer program. 
(2) An alternate name for a member of a 
partitioned data set. 


ANSI. American National Standards 
Institute 


ASCII. American National Standard Code 
for Information Interchange 


AUL. American National Standard user 
labels (value of LABEL) 


auxiliary storage. Data storage other 
than virtual storage; for example, 
storage on magnetic tape or direct 
access devices. 


basic access technique. Any access 
method in which input/output statement 
causes a corresponding machine 
input/output operation to occur. 
Cantrast with queued access technique. 
BCD. binary coded decimal 


BCDIC. binary coded decimal interchange 
code 


BDAM. basic direct access method 


BDW. block descriptor word 


BFALN. buffer alignment Coperand of 
DCB) 


BFTEK. buffer technique Coperand of 
DCB) 


BISAM. basic indexed sequential access 
method 


BLDL. build list (macro instruction) 
BLKSIZE. block size Coperand of DCB) 


block prefix. An optional variable 
length field that may precede unblocked 
records or blocks of records in ASCII on 
magnetic tapes. 


block size. (1) The number of records, 
words, or characters ina block. (2) A 
measure of the size of a block, usually 
specified in units such as records, 
words, computer words, or characters. 


blocking. The process of combining two 
or more records into one block. 


BPAM. basic partitioned access method 
BPI. bits per inch 
BSAM. basic sequential access method 


BSM. backspace past tapemark and 
forward space over tapemark Coperand of 
CNTRL) 


BSP. backspace one block (macro 
instruction) 


BSR. backspace over a specified number 
of blocks Coperand of CNTRL). 


BUFCB. buffer pool control block 
Coperand of DCB) 


buffer. An area of storage that is 
temporarily reserved for use in 
performing an input/output operation, 
into which data is read or from which 
data is written. 


buffer pool. An area of storage in 
which all buffers of a program are kept; 
the buffers are built in extents chained 
together. 


BUFL. buffer length Coperand of DCB) 
BUFNO. buffer number Coperand of DCB) 
BUFOFF. buffer offset Clength of ASCII 
block prefix by which the buffer is 
offset; operand of DCB) 


CCHH. The cylinder head record that 
gives the DASD location. 
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CCW. channel command word 


channel program. One or more channel 
command words that control a specific 
sequence of data channel operations. 
Execution of the specific sequence 1s 
L1nitiated by a single start I/0 
instruction. | 


CNTRL. 


CONTIG. contiguous space allocation 
(value of SPACE) 


control (macro instruction) 


control character. A character whose 
occurrence ina particular context 
initiates, modifies, or stops a control 
operation. It may be recorded for use in 
a subsequent action, and may have a 
graphic representation in some 
circumstances. 


control program. A routine, usually 
part of an operating system, that aids 
in controlling the operations and 
managing the resources of a computer 
system. 


CSW. channel status word 
CVOL. See OS CVOL. 


cylinder. (¢1) In a disk pack, the set 
of all tracks with the same nominal 
distance from the axis about which the 
disk pack rotates. (2) The tracks of a 
disk storage device that can be accessed 
without repositioning the access 
mechanism. 


CYLOFL. number of tracks for cylinder 
overflow records Coperand of DCB) 


D. format-D CISCII/ASCII 
variable-length) records (value of 
RECFM) 


DA. direct access (value of DEVD or 
DSORG) 
DASD. See direct access storage device 
data control block. A control block 


used by access method routines in 
storing and retrieving data. 


data conversion. The process of 
changing data from one form of 
representation to another. 


data definition (DD} statement. A job 
control statement that describes a data 
ara associated with a particular job 
step. 


data extent block. An extension of the 
data control block that contains 
information about the physical status of 
the data set being processed. 


data set. The major unit of data 
storage and retrieval in the operating 
system, consisting of data ina 
prescribed arrangement and described by 








control information to which the system 
has access. As used in this publication, 
a collection of fixed- or 
variable-length records in auxiliary 
storage. 


data set control block. A data set 
label for a data set in direct access 
storage. 


data set label. A collection of 
information that describes the 
attributes of a data set and is normally 
stored on the same volume as the data. 
set. 


DAU. direct access unmovable data set 
(value cf DSORG) 


DB. ISCII/ASCII variable-length, 
blocked records (value of RECFM) 


DBS. ISCII/ASCII variable-length, 
blocked spanned records (value of RECFM) 


DCB. See data control block Ccontrol 
block name, macro instruction, or 
parameter on DD statement) 


DCBD. data control block dummy section 
(macro instruction) 


DD. data definition 
DEB. See data extent block 


DECB. data event control block 
DEN. magnetic tape density (operand of 
DCB) 


dequeue. To remove items from a queue. 
Contrast with enqueue. 

DEVD. Device-dependent Ceperand of DCB) 
direct access storage device. A device 


in which the access time is effectively 
independent of the location of the data. 


direct data set. A data set whose 
records are in random order ona direct 
access volume. Each record is stored or 
retrieved according to its actual 
address or its address according to the 
beginning of the data set. Contrast 
with sequential data set. 


directory. (1) A table of identifiers 
and references to the corresponding 
items of data. (2) An index that is 
used by a control program to locate one 
or more blccks of data that are stored 
in separate areas of data set in direct 
access storage. 


DISP. data set disposition Cparameter 
of DD statement) 


doubleword. A contiguous sequence of 

bits or characters that comprises two 

computer words and is capable of being 
addressed as a unit. 
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DS. ISCII/ASCII variable-length, 
spanned records (value of RECFM) 


DSCB. See data set control block 
DSECT. See dummy control section. 


DSORG. data set organization Coperand 
of DCB) 


dummy control section. A control 
section that an assembler can use to 
format an area of storage without 
producing any object code. 


dynamic allocation. The allocation of a 
data set or volume by the use of the 
data set name or volume serial number 
rather than by the use of information 
contained ina JCL statement. 


dynamic buffering. (1) A dynamic 
allocation of buffer storage. 

(2) Allocation of storage for buffers as 
they are needed for incoming data during 
program execution. 


EBCDIC. extended binary coded decimal 
interchange code 


enqueue. To ieee. items on a queue. 
Contrast with dequeue. 


entry point. (1) The address or the 
level of the first instruction executed 
upon entering a computer program, a 
routine, or a subroutine. A computer 
program, a routine, or a subroutine may 
have a number of different entry points, 
each perhaps cerresponding to a 
different function or purpose. (2) Ina 
routine, any place to which control can 
be passed 


EODAD. End-of-data set exit routine 
address Coperand of DCB) 


EQF. end-of-file 
EQV. end-of-volume 
EROPT. error options Coperand of DCB) 


ESETL. end sequential retrieval CQISAM 
macro instruction) 


EXCP. execute channel program (macro 
instruction) 


exit list. A control block that 
contains the addresses of routines that 
receive control when specified events 
occur during execution; for example, 
routines that handle session | 
establishment request processing or 1/0 
errors. 


EXLST. See exit list Coperand of DCB) 


F. fixed-length records (value of 
RECFM) 


FB. fixed-length, blocked records 
(value of RECFM) 


FBS. fixed-length, blocked, standard 
records (value of RECFM) 


FBT. fixed-length, blocked records with 
track overflow option (value of RECFM) 


FCB. £ornS control buffer 


FEOV. force end-of-volume (macro 
instruction) 


FIPS. Federal Information Processing 
Standard 


flag. (1) Any of various types of 
indicators used for identification, for 
example, a wordmark. (2) A character 
that signals the occurrence of some 
condition, such as the end of a word. 


format-D. ISCII/ASCII or ISO/ANSI/FIPS 
Variable-length records 


format-F. Fixed-length records 
format-U. Undefined-length records 
format-V. Variable-length records 


FS. fixed-length, standard records 
(value of RECFM) 


FSM. forward space past tapemark and 
backspace over tapemark Coperand of 
CNTRL) 


FSR. forward space over a specified 
ae ae of blocks (records) Coperand of 
L 


GCR. group coded recording (tape 
recording mode) 


generation data group. A collection of 
data sets that are kept in chronological 
order; each data set is called a 
generation data set. 


generation data set. One of a 
collection of historically related 
non-VSAM data sets; the collection of 
these data sets 1S Known as a generation 
data group. 


GL. GET macro, locate mode (value of 
MACRF ) 


GM. GET macro, move mode (value of 
MACRF ) 


HA. home address 


halfword. A contiguous sequence of bits 
or characters that comprise half a 
computer word and is capable of being 
addressed as a unit 


head. A device that reads, writes, or 
erases data on a storage medium, for 
example, a small electromagnet used to 
read, write, or erase data on magnetic 
drum or magnetic tape, or the set of 
perforating, reading, or marking devices 
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used for punching, reading, or printing 
on perforated tape. 


header label. (1) An internal label, 
immediately preceding the first record 
of a file, that identifies the file and 
contains data used in file control. 

(2) The label or data set label that 
precedes the data records ona unit of 
recording media. 


home address. An address written ona 
direct access volume, denoting a track's 
address relative to the beginning of the 
volume. 


IBG. Inter-block gap 


ICF catalog. integrated catalog 
facility catalog 


INOUT. 
OPEN) 


input then output Coperand of 


integrated catalog facility (ICF). The 
name of the catalog associated with the 
Data Facility Product licensed program. 
internal storage. Storage that is 
accessible by a computer without the use 
of input/output channels. 

I/O. ainput/output 

IOB. input/output block 

IPL. initial program load 

IRG. interrecord gap 

IS. indexed sequential (value of DSORG) 
ISAM. 


ISCII. International Standard Code for 
Information Interchange 


indexed sequential access method 


ISO. International Organization for 
Standardization 


ISU. indexed sequential unmovable 
(value of DSORG) 


JCL. job control language 

JFCB. job file control block 

JFCBE. job file control block extension 
K. 1024 Cbytes) 

key. One or more consecutive characters 
taken from a data record, used to 
identify the record and establish its 
order with respect to other records. 
KEYLEN. key length Coperand of DCB) 
locate mode. A way of providing data by 
pointing to its location instead of 


moving it. 


logical record. (1) A record from the 
standpoint of its content, function, and 








use rather than its physical attributes; 
that is, one that is defined in terms of 
the information it contains. C2) A unit 
of information normally pertaining to a 

Single subject; a logical record 1s that 
user record requested of or given to the 
data management function. 


LPA. link pack area 


LPALIB. link pack area library 
LRECL. logical record length Coperand 
of DCB) 


LRI. logical record interface 


M. machine control code (value of 
RECFM) 


MACRF. 
of DCB) 


macro instruction form Coperand 


master catalog. A key-sequenced data 
set with an index containing extensive 
data set and volume information required 
to locate data sets, to allocate and 
deallocate storage space, to verify the 
authorization of a program or operator 
to gain access to a data set, and to 
accumulate usage statistics for data 
sets. 


meimnber. 
data set. 


MOD. modify data set (value of DISP) 


A partition of a partitioned 


move mode. A transmittal mode in which 
the record to be processed 18S moved into 
a user work area. 


MSHI. main storage for highest-level 
index Coperand of DCB) 


MSS. IBM 3850 Mass Storage System 
MSVC. 


MSWA. main storage for work area 
Coperand of DCB) 


Mass Storage Volume Control 


NCP. number of channel programs 
Coperand of DCB) 


non-VSAM data set. A data set created 
and accessed using one of the following 
methods: BDAM, BPAM, BSAM, QSAM, QISAM. 


NOPWREAD. No password required to read 
a data set (value of LABEL) 


NRZI. non-return-to-zero-inverted (tape 
recording mode) 


NSL. nonstandard label (value of LABEL) 
NTM. number of tracks in cylinder index 
for each entry in lowest level of master 
index Coperand of DCB) 


operand. Information entered with a 
command name to define the data on which 
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a command operates and to control the 
execution of the command. 


operating system. Software that 
controls the execution of programs; an 
operating system may provide services 
such as resource allocation, scheduling, 
input/output control, and data 
management. 


OPTCD. 
of DCB) 


optional services code Coperand 
OS CVOL. operating system control 
volume 


OUTIN. 
OPEN) 


output then input Coperand of 


partitioned data set. <A data in direct 
access storage that is divided into 
partitions, called members, each of 
which can contain a program, part of a 
program, or data. Synonymous with 
program library. 


password. A unique string of characters 
stored ina catalog that a program or a 
computer operator at the console must 
supply to meet security requirements 
before the program gains access to a 
data set. 


PCI. program-controlled interruption 
PDAB. parallel data access block 
PDS. partitioned data set 


PE. phase encoding (tape recording 
mode) 


physical record. One or more logical 
records, or occasionally, a part of one 
logical record read into or written from 
main storage as a unit. 


PL. PUT macro, locate mode (value of 
MACRF ) 


PM. PUT macro, move mode (value of 
MACRF) 


PO. partitioned organization (value of 
DSORG) 


pointer. An address or other indication 
of location. 


POU. partitioned organization unmovable 
(value of DSORG) 


problem program. Any program that is 
executed when the processing unit is in 
the problem state; that is, any program 
that does not contain privileged 
instructions. This includes 
IBM-distributed programs, such as 
language translators and service 
programs, as well as programs written by 
a user. 


a printer line spacing Coperand of 


PS. physical sequential (value of 
DSORG) 


PSU. physical sequential unmovable 
(value of DSORG) 


QISAM. queued indexed sequential access 
methods 


QSAM. queued sequential access method 


queued access technique. Any access 
method that synchronizes the transfer of 
data between the computer program using 
the access method and input/output 
devices, thereby minimizing delays for 
input/output operations. 


RACF. See Resource Access Control 
Facility. 


RDBACK. read backward Coperand of OPEN) 


RDW. record descriptor word 


RECFM. record format Coperand of DCB) 
record. A collection of related data or 
words, treated as a unit; for example, 
in stock control, each invoice could 
constitute one record. 


register. An internal computer 
component capable of storing a specified 
amount of data and accepting or 
transferring this data rapidly. 


relative address. An address expressed 
as a difference with respect to a base 
address. 


Resource Access Control Facility. A 
licensed program that provides for 
access control by identifying and 
verifying users to the system 
authorizing access to DASD data sets, 
logging detected unauthorized attempts 
to enter the system, and logging 
detected accesses to protected data 
sets. 


RKP. relative key position Coperand of 
DCB) 


RLSE. release unused space (DD 
statement) 


RPS. rotational position sensing 


Save area. An area of main storage in 
which the contents of registers are 
saved. 


scheduling. The ability to request that 
a task set should be started at a 
particular time interval or on 
occurrence of a specified PI interrupt. 


SDW. segment descriptor word 


secondary space. An area of direct 
access storage space which is allocated 
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after the primary space originally 
allocated has been exhausted. 


sequential data set. A data set whose 
records are organized on the basis of 
their successive physical positions, 
such as on magnetic tape. Contrast with 
direct data set. 


SER. volume serial number (value of 
VOLUME) 


serialization. In MVS, the prevention 
of a program from using a resource that 
is already being used by an interrupted 
program until the interrupted program is 
finished using the resource. 


SETL. set lower limit of sequential 
retrieval CQISAM macro instruction) 


SF. sequential forward Coperand of READ 
or WRITE) 


SK. skip to a printer channel Coperand 
of CNTRL) 


SKP. skip erroneous block (value of 
EROPT) 


SL. IBM standard labels (value of 
LABEL ) 


SMSI. size of main-storage area for 
highest-level index Coperand of DCB) 


SMSW. size of main-storage work area 
(operand of DCB) 


SP. space lines ona printer Coperand 
of CNTRL) 


spooling. (1) The use of auxiliary 
storage as a buffer to reduce processing 
delays when transferring data between 
peripheral equipment and the processors 
of a computer. (2) The reading of input 
data streams and the output of data 
streams on auxiliary storage devices, 
concurrently with job execution, ina 
format convenient for later processing 
or output operations. 


SS. select stacker on card reader 
Coperand of CNTRL) 


substitute mode. A transmittal mode 
used with exchange buffering on which 
segments are pointed to, and exchanged 
with, user work areas. 


subtask. (1) A task that is initiated 
and terminated by a higher order task. 
(2) A task that is restricted from 

communication with an operator device. 


SUL. IBM standard and user labels 
(value of LABEL) 


SVC. supervisor call 


SVCLIB. supervisor call library 








SYNAD. synchronous error routine 
address Coperand of DCB) 


SYSIN. system input stream 
SYSOUT. system output stream 


system residence volume. The volume on 
which the nucleus of the operating 
system and the highest level index of 
the catalog are located. 


T. track overflow option (value of 
RECFM); user-totaling (value of OPTCD) 


TIOT. task I/0 table 


trailer label. A file or data set label 
that follows the data records ona unit 
of recording media. 


TRO. table reference character 


TRICH. track recording technique 
Coperand of DCB) 


TSO. Acronym of time sharing option. 
TTR. Acronym of track record. 


U. undefined length records (value of 
RECFM) 


UCS. universal character set 
UHL. user header label 


user catalog. A catalog used in the 
same way as the master catalog, but 
optional and pointed to by the master 
catalog, and also used to lessen the 
contention for the master catalog and to 
facilitate volume portability. 


UTL. user trailer label 


V. format-V (variable-length) records 
(value of RECFM) 


VB. variable-length, blocked records 
Cvalue of RECFM) 


VBS. variable-length, blocked, spanned 
records (value of RECFM) 


virtual I70 (VIO). A facility that 
pages data into and out of external page 
storage; to the problem program, the 
data to be read from or written to 
direct access storage devices. 


volume. (1) A data carrier that is 
mounted and demounted as a unit, for 
example, a reel of magnetic tape, a disk 
pack. (2) That portion of a single unit 
of storage that is accessible to a 
Single read/write mechanism, for 
example, a drum, a disk pack, or a part 
of a disk module. 


volume table of contents. A table ona 


direct access volume that describes each 
data set on the volume. 
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VS. variable-length, spanned records VTOC. volume table of contents 


VSAM catalog. virtual storage access XLRI. extended logical record interface i, 
method catalog £ 
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A-type address constant 

defined 5 
abbreviations 220-226 
ABEND macro 


BDAM 33 
BPAM 45 
BSAM 59 
list format 197-198 
QSAM 84 


absexp defined 5 
absolute expression defined 5 
access methods 

general description 


BDAM 30 
BISAM 38 
BPAM 43 
BSAM 49 
QISAM 65 
QSAM 73 


macro instructions used with 178 
acronyms 220-226 
ACSMETH operand 
SYNADAF macro 168 
actual device addressing 
BDAM 35 
QISAM 69 
adding data to a data set 
BDAM 34, 186 
BISAM 40, 183 


BPAM 185 
BSAM 185, 186 
QISAM 99 
QSAM 100 


address feedback 
current block position 132 
next block position 133 
address of buffers 
obtained from a pool 103 
returned to a pool 96, 97 
addressing, types of CBDAM) 35 
aids, coding 2-3 
alias names ina directory 164-165 
alignment of buffers 


BDAM 30 
BISAM 38 
BPAM 43 
BSAM 50 
QISAM 65 
QSAM 74 


allocation retrieval list 197 
ANSI control characters 


BPAM 

BSAM 62 

QSAM 88 
argument, search 

BDAM 35 

QISAM 68 


ASCII data sets 
block prefix 
BSAM 52 
QSAM 77 
restriction 52, 77 
block size 
BSAM 51 





QSAM 76 
buffer length 
BSAM 52 
QSAM 77 
restriction on record format 
BSAM 62 
QSAM 88 


ASCII translation routines 
check routine 19 
get routine 100 
put routine 129 
write routine 185 
XLATE macro 19] 
associated data sets 
closing 2l 
opening 112 
specifying 
BSAM 56, 58 
QSAM 81, 82 
ATTACH macro 
relationship with BLDL macro 8 
automatic buffer pool construction 
BDAM 30 


BISAM 38 

BPAM 43 

BSAM 49 

QISAM 65-67 

QSAM 73 | 
automatic checkpoint restart 20 
automatic error options 

See EROPT 
automatic volume switching 

FEOV macro 93 


backspacing 
BSP macro ll 
CNTRL macro 27 
backward read 
open ception 113 
read operation 137 
base registers 
dummy sections 90 
macro instructions 5 
basic direct access method 
See BDAM 
basic partitioned access method 
See 
basic sequential access method 
See BSAM 
BDAM (basic direct access method) 
general description 30 
macro instructions used with 193 


symbolic field names in DCB 217-218 


BFALN operand (CDCB macro) 


BDAM 30 
BISAM 38 
BPAM 43 
BSAM 50 
QISAM 65 
QSAM 74 
BFTEK operand (DCB macro) 
BDAM 31 
BSAM 50 


Index 22/7 


QSAM 75 
BISAM Cbasic indexed sequential access 
method) 

general description 38 


macro instructions used with 193 

symbolic field names in DCB 213-216 
BLDL macro : 

description 8-10 


reason codes 10 
return codes 10 
use by access method 193 
used with FIND 94 
BLKSIZE operand CDCB macro) 
BDAM 31. 
BPAM 43-44 
BSAM 50 
QISAM 65-66 
QSAM 75-76 
block 
backspacing by 11 
count exit 
BSAM 59 
list format 
QSAM 84 
data control 30 
data event control 
descriptor word, 


197 


192 
relationship with 


BLKSIZE operand 44, 51, 66, 76 
BUFOFF operand 52, 77 
LRECL operand 68 
event control 192 
position feedback 123, 181 
positioning with POINT 123-124 


prefix 
See also BUFOFF operand 
effect on block length 51 
effect on buffer length 52, 77 
effect on data alignment 50, 74 


reading 132-138 
size : 

See BLKSIZE operand 
writing 180-187 


block size for SYSOUT data sets 
See also BLKSIZE operand 
BSAM 51 
QSAM 76 
blocking 
data checks CUCS printer) 
records 
BDAM 30, 36 
BPAM 43, 47 


151 


BSAM 62 
QISAM 71 
QSAM 88-89 


boundary alignment 
See BFALN operand 
BPAM Cbasic partitioned access method) 
general description 43 | 
macro instructions used with 193 
symbolic field names for DCB 204-210 
BSAM (basic sequential access method) 
general description 
macro instructions used with 193 
symbolic field names for DCB 202-207 
BSP macro 
description 1] 
reason codes 12 
return codes 12 
use by access method 
BUFCB operand (DCB macro) 
BDAM 31 


193 


BISAM 38 
BPAM 51 
BSAM 51 
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QISAM 66 

QSAM 76 

relationship to 
GETBUF macro 
GETPOOL macro 


103 
104. 


buffer 


alignment 

See BFALN operand 
control 7 

using FREEBUF macro 96 

using FREEDBUF macro 97 

using FREEPOOL macro 98 

using GETBUF macro 103 

using GETPOOL macro 104 

using RELSE macro 143 
forms control 

using SETPRT macro 146 
length 

See also BUFL operand 

BUILD macro 14 

BUILDRCD macro 15 

for ASCII data sets 

for card image mode 

GETPOOL macro 104 
message format CSYNADAF macro) 
pool construction 

See also BUFCB operand 

automatic Csee BUFNO operand) 1 

using BUILD macro 13-14 

using BUILDRCD macro 15-16 

using GETPOOL macro 104 
releasing 

using FREEBUF macro 96 

using FREEDBUF macro 97 

using FREEPOOL macro 98 

using RELSE macro 143 

using SYNADRLS macro 171 
specifying number 

See BUFNO operand 


52, 77 
52, 77 


170 


buffering 


dynamic 97 
problem program controlled 
38 


BISAM 
BSAM 49 
Simple 74-75 


specifying 31, 50-51, 74-75 
Variable-length spanned record 
BDAM 31 
BSAM 51 
QSAM 75 


using BUILDRCD macro 15-16 


BUFL operand (DCB macro) 


BDAM 32 
BISAM 39 
BPAM 44 
BSAM 51 
QISAM 66 
QSAM 77 
BUFNO operand (CDCB macro) 

BDAM 32 
BISAM 39 
BPAM 44 
BSAM 52 
QISAM 66-67 
QSAM 77 


relationship to CNTRL macro 27 
relationship to NCP operand 39 


BUFOFF operand (DCB macro) 


BSAM 52-53 
QSAM 77 


BUILD macro 


description 13-14 
relationship to 
BFALN operand 30 
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BUFCB operand 31 
BUFL operand 32 
BUFNO operand 32 
use by access method 193 
BUILDRCD macro 
description 
execute form 18 
list form 17 
standard form 13-14 
relationship to 
BUFL operand 77 
BUFNO operand 74 
GET macro 101 © 
PUT macro 130 
TRUNC macro 177 
use by access method 193 
BURST operand CSETPRT macro) 147, 159, 
161 


[Le | 


capacity record (RQ) 
relationship with 
READ macro 133 
WRITE macro 180, 186 
card codes 
BSAM 55 
QSAM 80 
card image 
buffer length required 52, 77 
defined 55, 
card punch 55, 80 
card reader 56, 80 
carriage control channel 
CNTRL macro 27-29 
PRTOV macro 125-126 
carriage control characters 
CNTRL macro 27-29 
machine 199-200 
PRTOV macro 125-126 
chained scheduling 


BPAM 47 
BSAM 61 
QSAM 86 


changing partitioned data set member 
name 164-165 
channel 
carriage control 
See carriage control channel 
overflow 125-126 
programs, number of 


BISAM 41 
BPAM 46 
BSAM 60 | 


character arrangement table 
specifying use of 147-148 
character set code 
1403 printer 151 
3203 printer 151 
3211 printer 151 
CHARS operand CSETPRT macro) 148 
CHECK macro 
description 19 
relationship to 
end of data CEODAD) 45, 58 
MACRF operand 34 
operations CNCP) G1, 46, 60 
POINT macro 124 
READ macro 132, 135, 137, 139 
WRITE macro 180, 183, 185, 186 
use by access method 193 





checking, write-validity 


BDAM 36 
BPAM 47 
BSAM 62 
QISAM 70 
QSAM 87 


checkpoint records, embedded (DOS) 
CNTRL macro 
POINT macro 123 
CHKPT macro 
use by access method 193 
CLOSE macro 
execute form 26 
list form 24 
MODE 23, 25, 26 
MVS/7370 compatibility 23 
relationship to 
BUILDRCD macro 16 
FREEPOOL macro 98 
POINT macro 123 
PUT macro 130 
SETL macro 144 
standard form 21-23 
TYPE=T 22 
: use by access method 193 
CNTRL macro 
description 27-29 
restrictions 27 
specified in MACRF operand (DCB 


macro) 
BSAM 60 
QSAM 85 


use by access method 193 
codes 

See also card codes 

See also completion codes 

See also control characters 

See also conversion 

See also exception code 

See also return codes 


card | 
BSAM 55 
QSAM 80 
completion 


See code, return 
control character 
See control characters 
conversion 
ASCII to EBCDIC 19, 100, 191 
EBCDIC to ASCII 185, 191 
XLATE macro 191 
return 
BLDL macro 10 
BSP macro 12 
FIND macro 94 
MSGDISP macro 109 
NOTE macro 111 
POINT macro 124 
RELEX macro 142 
SETPRT macro 152-156 
STOW macro 165-167 
SYNADAF macro 169 
SYNADRLS macro 171 
WRITE macro 188 
coding 
aids 2-3 
macro instructions 1-7 
registers as operands 5 
column, binary 
See also card image 
eliminate mode, read column 
BSAM 55, 57 
QSAM 81 
compatibility 


Index 
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MVS/XA with MVS/370 23, 115 
completion codes 
BLDL macro 10 
BSP macro 12 
FIND macro 94 
MSGDISP macro 109 
NOTE macro 111 
POINT macro 124 
RELEX macro 142 
STOW macro 165-167 
SYNADAF macro 169 
SYNADRLS macro 17] 
WRITE macro 188 
completion testing of I/0 
operations 19, 178 
condition, exception 192 
construct 
a buffer pool 
See buffer pool construction 
a data control block 
See DCB macro 
a DECB Cdata event control 
block) 192 
contents of registers on entry to 
exit list 
control 
characters 199-200 
I70 device 27-29, 125 
page format 125-126 
printer €3800) 1966-151 
releasing 
buffer CFREEBUF macro) 96 
buffer pool CFREEPOOL macro) 


data block CRELEX macro) 142 


dynamically acquired buffer 


requesting 
buffer CGETBUF macro) 103 
data block 104 
control blocks 1, 24, 135-139 
: buffer pool 
See BUFCB operand 
data 
see DCB macro 
data event 192 
control characters 
CNTRL macro 27-29 
ISO/“ANSI/FIPS 201 
machine 199 
PRTOV macro 125-126 
specifying for 


BPAM 47 
BSAM 63 
QSAM 88 


control section 
See DCB macro 
COPIES operand 
in SETPRT macro. 
modifying 151 
specifying 148 
copy modification module 
specifying 150 
COPYNR operand in SETPRT macro 
modifying 151 
count aes block 


BSAM 

format list 197 

QSAM 84 
cylinder 

index 69 


overflow area 67 
cylinder overflow 
DCB macro 6/7 


98 


97, 
181 
QSAM buffer CRELSE macro) 143 


CYLOFL operand (DCB macro) 67 


[> | 


D-format records 
BSAM 62 
QSAM 88 


DASD Cdirect access storage devices) 


capacity 194-196 
considerations with 
BSP macro 11 
CLOSE macro 21, 22 
POINT macro 123-124 
interface in DCB 206 
data block 
exclusive control of 132 


locating with POINT macro 123-124 


release of exclusive control 1462 


retrieving 99-102, 132-139 
writing 127-131, 180-187 

data check 
blocking and unblocking 61, 87, 


restriction with CNTRL macro 27 


data control block 
See DCB 
data control block CDCB) 
DCBNCRHI field 41 
symbolic references to 202-218 
data definition (DD) statement 
See DD statement 
data event control block 
See DECB 
data extent block 
See DEB 
data management 
parameter list 24, 117 
data mode processing 
GET macro 85, 101 
PUT macro 86, 130 
data prtotection image 
See DPI 
data set 
block size for SYSOUT 51, 76 
closing 21-23 
connecting to 112-116 
disconnecting from 21-23 
disposition at close 22 
opening 112-116 
organization 
See DSORG operand 
temporary closing 22-23 
types 
See access methods 
data translation 
See code conversion 
data transmittal modes 
data 85, 101, 130 
locate 99, 100, 127, 129-130 
move 99, 101, 12/7, 130 
specified in DCB 85 
data, end of 
See EODAD operand 
DCB Cdata control block) 
completing 
construction 
See DCB macro 
DCBBLKCT field 
DCBEXCD1 field 192 
DCBEXCD2 field 192 
DCBLRECL field 129 
DCBOFLGS field 115 
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description 
See DCB macro 
dummy section for 90-91 
exit list 
See EXLST operand 
special options with BLDL macro 8-10 
DCB ABEND exit 


BDAM 33 
BPAM 45 
BSAM 59 
list format 197-198 
QSAM 84 

DCB macro 
BDAM 30-37 
BISAM 38-42 
BPAM 43-48 
BSAM 49-64 
QISAM 72 
QSAM 73-89 


use by access method 193 
DCB open exit routine 

relationship to OPTCD operand 35, 62 

restriction with BUILDRCD macro 15 
DCB operands 

description 

See DCB macro 

symbolic names for 202-218 
DCBD macro 

description 90-91 

use by access method 193 
DD statement 

See also DDNAME operand 

NOTE macro 110 

OPEN macro 112-114 

POINT macro 123 

relationship to data control 

block 1, 110, 112, 114, 123 
DDNAME operand CDCB macro) 


BDAM 33 
BISAM 39 
BPAM 45 
BSAM 53 
QISAM 67 
QSAM 78 


DEB Cdata extent block) 
validity checking 112 
deblocking records 
BDAM 30, 36 


BPAM 47 
BSAM 62 
QISAM 71 


DECB Cdata event control block) 
construction 140, 189 
description 192 
exception code 192 
modifying with execute form 141, 190 
requirement with CHECK macro 19 
requirement with FREEDBUF macro 9/7 
delete option 
description 70 
DEN operand CDCB macro) 
BSAM 54 
QSAM 78 
density, recording 
See DEN operand 
descriptor word 


BSAM 51, 52, 139 

QISAM 66, 68 

QSAM 76, 77 
record 

BSAM 52 

QISAM 66, 68 





QSAM 84 
segment 51, 139 
DEVD operand CDCB macro) 


BSAM 53-58 
DCBD macro 9] 
QSAM 78-83 


device addressing, types of CBDAM) 35 
device capacities 199-196 
device types ina dummy section 91 
direct data set 
See BDAM data set 
direct search option 
BSAM 62 
QSAM 87 
directory, partitioned data set 
obtaining contents with BLDL 8-10 
operations performed by STOW 
macro 1649-165 
search by FIND macro 94 
DISP option 
See disposition option 
disposition option 
CLOSE macro 22 
OPEN macro 114 
requirement for extending an ISAM 
data set 110 
DOS (Disk Operating System) 
embedded checkpoint records 
CNTRL macro 27 
DOS/OS interchange feature, 
specifying 62, 87 
POINT macro 123 
doubleword alignment 
See BFALN operand 
DPI (data protection image) 
for BSAM 56, 
for QSAM 81, 82 
DSECT statement 
DCB symbolic names 202 
DSORG operand (CHECK macro) 19 
DSORG operand (DCB macro) 45 


BDAM 33 
BISAM 39 
BPAM 45 
BSAM 58 
QISAM 67 
QSAM 83 


dummy control section 
DCBD macro 90-91 
PDABD macro ae 
used for DCB 20 

dummy data block CBDAM) 186-187 

dummy key 186 

dynamic buffering 
effect on buffer length 32, 38 
effect on number of channel 
programs 41 | 
requesting in READ macro 133, 135 
requesting in WRITE macro 181, 183 
returning buffer to the pool 97, 181 
specified in BDAM DCB 35 
specified in BISAM DCB 41 


Le | 


EBCDIC Cextended binary coded decimal 
interchange code) 
ASCII translation 
check routine 19 
DCB option 61, 86 
GET routine 100 


Index 231 


put routine 129° 
write routine 185 
XLATE macro 191 
ECB Cevent control block) 
ECB operand 
WAIT macro 178 
ECBLIST operand 
WAIT macro 178 
eliminate mode, read column 
BSAM 57 
QSAM 81 
embedded checkpoint records (DOS) 
CNTRL macro 
POINT macro 123 
end-of-data 
See EODAD operand 
end-of-data routine 
See EQDAD routine 
end-of-file on magnetic tape, ignoring 
BSAM 62 
QSAM 87 
end-of-sequential retrieval 
See ESTEL 
end-of-volume 
exit 
BSAM 59 
QSAM 84 
forced CFEOV macro) 93 
entry 
to exit routine 197 
to SYNAD exit routine 192 
EQDAD Cend-of-data) routine 
with BSP macro 1] 
with CHECK macro 19 
with CNTRL macro 27 
with FEOV macro 93 
with GET macro 99, 102 
with POINT macro 124 
EODAD operand CDCB macro) 
BPAM 45 


192 


BSAM 58 
QISAM 67 
QSAM 83 


EROPT Cautomatic error options) operand 


CBCB macro) 83-84 
ERP Cerror recovery procedure) 
BSAM 62 
QSAM 87 
error analysis, I/0 
relationship with 
CHECK macro 19 
CNTRL macro 28-29 
DCB macro 62, 87 
GET macro 99, 102 
POINT macro 124 
PUT macro 128, 130 
PUTX macro 131 
SETL macro 145 
SYNADAF macro 168 
specifying in DCB macro 
BDAM 37 


BISAM 42 
BPAM 48 
BSAM 62 
QISAM 72 
QSAM 89 
status indicators 
QISAM 192 
error codes 
See return codes 
error conditions 
while opening a data set 116 
error exits 
CHECK macro 19 


CNTRL macro 28-29 
DCB macro 62, 87 
GET macro 99, 102 
POINT macro 124 
PUT macro 128, 130 
PUTX macro 131 
SETL macro 145 
SYNADAF macro 168-169 
error option operand C€QSAM) 83 
error recovery 
procedure 
for tape 62, 87 
ESETL Cend-of-sequential retrieval) 
macro 
relationship to 
SETL macro 144 
ESETL Cend-of-sequential-retrieval) 
macro 
description 92 
relationship to 
GET macro 99 
ESTEL Cend-of-sequential retrieval) 
macro 
use by access method 193 
event control block 
See ECB 
open 
See DCB open exit routine 
exception code 192 


exclusive control of data block CBDAM) 


releasing of 18l 
requesting of 132 
specified in DCB 35 
EXCP macro 
relationship with SYNADAF macro 
execute form 
BUILDRCD macro 18 
CLOSE macro 26 
OPEN macro 119 
READ macro 141 
SETPRT macro 161-163 
WRITE macro 190 
exit routine 
See also EXLST operand 
block count 59, 84 
data control block 
See EXLST operand 
end-of-data 
See EQDAD operand 
end-of-volume 59, 84 
error analysis 
See error exits 
FCB image 59, 84 
list format 197 
user labeling 59, 84 
user totaling 59, 84 
EXLST Renan CDCB macro) 


BDAM 

BISAM 39 

BPAM 45 

BSAM 58 

list format 197 

QISAM 68 

QSAM 84 
expressions 


absolute (Cabsexp) 5 
relocatable Crelexp) 5 
EXTEND operand COPEN macro) 113 
extended binary coded decimal 
interchange code 
See EBCDIC 
extended logical record interface 
See XLRI 
extended search option 
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LIMCT operand 34 
OPTCD operand 35 


LF | 


F-format records 
See RECFM operand 
FCB Cforms control buffer) 
image 
defining 59, 8&4 
operand (SETPRT macro) 198 
feedback 
block position 132, 181 
next address 3 
FEOV macro 
use by access method 193 
use of 
file, end of 
See end-of-file 
FIND macro 
description 94 
reason codes 95 
return codes 94 
use by access method 193 
fixed-length records 
See BLKSIZE operand, RECFM operand 
FLASH operand CSETPRI macro) 
specifying 149 
FLASH operand in SETPRT macro 
modifying 15] 


format 

exit list 197 

page 125 

record 
BDAM 36 
BPAM 47 
BSAM 62-64% 
QISAM 71 
QSAM 88-89 


forms alignment 149 
forms control buffer 
See FCB 
forms overlay frame 1499 
forward space (CNTRL macro) 28 
FREE option 
CLOSE macro 22 
FREEBUF macro 
description 96 
relationship to 
BUILD macro 13 
GETBUF macro 103 
use by access method 193 
FREEDBUF macro 
description 97 
use by access method 193 
used with BISAM 40, 183 
FREEPOOL macro 
description 98 
relationship to 
CLOSE macro 21] 
GETPOOL macro 104 
use by access method 193 
full-track-index write option 70 
fullword boundary alignment 
See BFALN operand 
FUNC operand (DCB macro) 
BSAM 55-56, 57 
QSAM 80-81, 82 
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GET macro 
ASCII translation 100 
data mode (QSAM) 85, 101 
for 
QISAM 99 
QSAM 100-102 
locate mode 
QISAM 69, 99 
QSAM 85, 100 
move mode 
QISAM 69, 99 
QSAM 86, 101 
restriction when using CNTRL 
macro 2/7, 85 
relationship to 
CNTRL macro 27 
EQDAD (see EQDAD operand) 1 
PDAB macro 12] 
RELSE macro 143 
SETL macro 144 
specified in DCB macro 


QISAM 69 
QSAM 85 
TYPE=P 102 


use by access method 193 
get routine exits 99, 102 
GETBUF macro 

description 103 

relationship to 

BUILD macro 13 
FREEBUF macro 96 

use by access method 193 
GETPOOL macro 

description 104 

relationship to 

BFALN operand = 30 
BUFCB operand 32 
BUFL operand 32 

BUFNO operand 32 
FREEPOOL macro 98 

use by access method 193 
glossary 220-226 


Lz | 


IHADCB dummy section 90 
IHAPDAB dummy section 122 
image 
data protection 
BSAM 56, 58 
QSAM 81, 82 
po gates control buffer) 59, 84, 


UCS Cuniversal character set) 151 
image mode, card 
BSAM 55 
QSAM 80 
independent overflow area 70 
index 
cylinder 69 
highest-level 
address of 40 
size of 41 
master 
number of tracks per level 69 
specified in OPTCD operand CDCB 
macro) 69 


Index 233 


INIT operand CSETPRT macro) 149 
INQUT operand COPEN macro) 113 
input data sets 

closing 22-23 

opening 112-116 

READ or GET specified in DCB 


BDAM 34 
BISAM 40 
BPAM 46 
BSAM 60 
QISAM 69 
QSAM 85 
reading 


BDAM 132-134 
BISAM 134-135 
BPAM 137-138 
BSAM Cread a direct data set) 139 
BSAM Cread a sequential data 
set) 137-138 
QISAM 99 
QSAM 100-102 
testing completion of I/0 operations 
CHECK 19 


WAIT 178-179 
used with GET macro 100 
INPUT operand COPEN macro) 113 
INPUT option 
OPEN macro 112 
input/output devices 
card reader and card punch 2/7 
control of 
CNTRL macro 27-29 
PRTOV macro 125 
magnetic tape 27 
printer 
3505 card reader 
DCB macro 57, 8l 
3525 card punch 
CLOSE macro 21 
CNTRL macro 27 
DCB macro 57, 58, 8l 
OPEN macro 112 
input/output error analysis 
See SYNAD exit routine 
input/output operations 
completion of 19, 178 
interface, DCB 
for BPAM 209-210 
for BSAM 209-210 
for card reader, card punch 207 
for direct access devices 206 
for magnetic tape 207 
for printer 207 
for QSAM 211 
interface, logical record 
See LRI 
ISAM Cindexed sequential access method) 
See also BISAM, QISAM 
general description 38, 65 
macro instructions used with 193 
symbolic field names in DCB 213-216 
ISO/ANSI/ZFIPS control characters 
defined 201 


JCL (€j0b control language) 
DD statement, relationship to 
CLOSE macro 


data control block (see DDNAME 


operand) 

DCB macro 33, 45 
GET macro 100 
NOTE macro 110 
OPEN macro 112-113 
POINT macro 123 
PUT macro 127 


LABEL parameter to request ASCII 


translation 19, 100, 129 


JFCBE Cjo0b file control block extension) 


exit list format 197 
EXLST operand 84 


relationship with OPTCD parameter 


job step 
checkpoint restart 20 


[« ] 


key (CBDAM) 
address 133 
reading 132 
specifying as search argument 
specifying length 33 
writing 
key CISAM) 
address 135, 183 
reading 135 
specifying length 68 
specifying position 7] 
writing 183 
key length 
See KEYLEN operand 
key position, relative (RKP) 71 
key, record 
PUT macro 127 
READ macro 135 
RKP Crelative key position) 
operand 
SETL macro 1449-145 
WRITE macro 183 
KEYLEN operand CDCB macro) 
BDAM 33 


BPAM 46 
BSAM 59 
QISAM 68 


LABEL operand 
DD statement 19, 100, 129 
labels 
See also EXLST operand 
exit list format 197 
input data set 87, 93, 112 
output data set 
CLOSE macro 21 
FEOV macro 93 
OPEN macro 112 
user, processing 59, 84 
LEAVE option 
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CLOSE macro 21 
FEOV macro 93 
OPEN macro 114 
length 
buffer 
See BUFL operand 
key 
See KEYLEN operand 
record 
See LRECL operand 
levels of master index CISAM) 69 
LIMCT operand (DCB macro) 34 
line spacing, printer 
CNTRL macro 27-29 
PRTSP operand CDCB macro) 
BSAM 54-55 
QSAM 79 
LINK macro 
relationship with BLDL macro 8 
list address 
data management 26, 119, 164 
list form 
BUILDRCD macro 17 
CLOSE macro 24 
OPEN macro 117 
READ macro 140 
SETPRT macro 159-160 
WRITE macro 189 
list format, exit 197 
LOAD macro 
relationship with BLDL macro 8 
loading 
FCB (Cforms control buffer) 148 
UCS Cuniversal character set 
buffer) 151 
locate mode 
BUILDRCD macro 15 
GET macro 
QISAM 99, 100 


QSAM 100 
PUT macro 
QISAM 127 
QSAM 129 
specified in DCB macro 
QISAM 69 
QSAM 85 
logical record interface 
See LRI 


logical record length 
See also LRECL operand 
GET macro 100 
PUT macro 127, 129 
PUTX macro 131 

LONG operand 
WAIT macro 179 


lower limit of sequential retrieval 


CSETL macro) 144-145 
LRECL operand (DCB macro) 
BPAM 46 


BSAM 59 


LRI Cinterface logical record) 
invoked by BUILDRCD macro 15 
LRI Clogical record interface) 
provided by QSAM 6 
specifying in DCB macro CBFTEK) 
used with PUT macro 129 





[| 


machine control characters 


BPAM 47 
BSAM 63 
description 199-200 
QSAM 88 


MACRF operand CDCB macro) 


BDAM 34-35 
BISAM 40 
BPAM 46 
BSAM 60 
QISAM 68 
QSAM 85 


macro use by access method 193 
macros, data management 


BLDL 8 

BSP ll 

BUILD 13-14 

BUILDRCD 
execute form 18 
list form 17 
standard form 15-16 

CHECK 19 

CHKPT 

CLOSE 
execute form 26 
list form 24 
standard form 21-23 

CNTRL 27-29 | 

coding 1-3 


DCB for 
BDAM 30-37 
BISAM 38-42 
BPAM 43-48 
BSAM 49-64 
QISAM 65-72 
QSAM 73-89 

DCBD 90-9] 

ESETL 92 

FEOV 93 

FIND 94 


FREEDBUF 97 
FREEPOOL 98 


GET for 
QISAM 99 
QSAM 100-102 
GETBUF 103 
GETPOOL 104 
NOTE 110 
OPEN 


execute form 119 
list form 117 
standard form 112-116 

PDAB 121 

PDABD 122 

POINT 123-124 

PRTOV 125-126 

PUT for 
QISAM 127 
QSAM 129-130 

PUTX 131 

READ for 
BDAM 132-1349, 139 
BISAM 134-135 
BPAM 137-138 
BSAM 137-139 
execute form 141 
list form 140 

RELEX 142 

RELSE 143 

SETL 1496-145 


Index 
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SETPRT 
execute form 163 
list form 159-160 
standard form 146-158 
STOW 1649-167 
SYNADAF 168-170 
SYNADRLS = 171 
TRUNC 177 
WAIT 178-179 
WRITE for 
BDAM 180-182, 186-188 
BISAM 183-184 
BPAM 185 
BSAM 185 
execute form 190 
list form 189 
XLATE 19] 
magnetic tape 
backspace 
BSP macro 11 
CNTRL macro 27 
considerations with 
BSP macro 11 
CLOSE macro 21-23 
POINT macro 123-124 
density 54, 79 
end-of-file, ignored 62, 87 
FEOV Cfinal volume positioning) 
macro 93 
forward space 27 
interface in DCB 207 
read backward 137 
recording technique 54, 79 
restriction : 
NOTE macro 110 
POINT macro 123 
mers error recovery procedure 62, 


Mass Storage System 
See MSS 
master index 
highest level in storage 
address of storage area 40 
size of storage area 41 
number of tracks per level 69 
option specified in DCB 6 
MAXDCB operand 
PDAB macro 121 
member, partitioned data set 
complete a list with BLDL macro 8-10 
locate beginning with FIND macre 94 
update directory with STOW 
macro 164-165 
MF operand 
BUILDRCD macro 17, 18 
CLOSE macro 26 
OPEN macro 117, 119 
READ macro 140, 141 
SETPRT macro 160, 163 
WRITE macro 189, 190 
mode 
see also MACRF operand 
card image 
BSAM 55 
QSAM 80 
data (QSAM) 85, 101, 130 
locate 
QISAM 69, 99, 127 
QSAM 85, 100, 129 
move 


QISAM 69, 99, 127 
QSAM 86, 101, 130 
optical mark read 
BSAM 5 
QSAM 81 
read column eliminate 
BSAM 57 


QSAM 81 
scan (QISAM) 69 
MODE operand CDCB macro) 
BSAM 55, 56 
QSAM 80, 81 
MODIFY operand (CSETPRT macro) 150 
modifying a parameter list 
BUILDRCD macro 18 
CLOSE macro 26 
OPEN macro 117, 119 
READ macro 14] 
SETPRT macro 16] 
WRITE macro 190 
move mode 
QISAM 
GET macro 99 
PUT macro 127 
specified in DCB 69 
QSAM 
GET macro 101 
PUT macro 130 
specified in DCB 86 
restriction 2/7, 8&6 
MSGDISP macro 
return codes 109 
MSHI operand CDCB macro) 40 
MSS (Mass Storage System) 
device capacity 194 
in DCB 206, 209, 211 
MSWA operand (DCB macro) 40 
multiline print option 
BSAM 56, 
QSAM 81, 82 
MVS/370 compatibility 23, 115 


NCP operand (CDCB macro) 
BISAM 41 
BPAM G46 
BSAM 60 
next address feedback 
BDAM Ccreating) 187 
BDAM Cexisting) 133 
NOTE macro 
description 110 
relationship with POINT macro 
restriction 
with BSP macro 1] 
return codes 111 
specified in DCB 
BPAM 46 
BSAM 60 
use by access method 193 
NTM operand (DCB macro) 70 
number of channel programs 
See NCP operand 
number of tracks per index level 
See NTM operand 
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OMR Coptical mark read) mode 
BSAM 57 
QSAM 81 
on-line printer 
control 27-29 
skipping 199-200 
spacing 199-200 
online printer 
skipping 125 
spacing 125 
open exit 
See DCB open exit routine 
OPEN macro 
execute form 119 
list form 117 
MODE 115, 118, 119 
MVS/7370 compatibility 115 
relationship to 
CLOSE macro 2l 
DDNAME operand 1 
FEOV macro 93 
GETPOOL macro 104 
NOTE macro 110 
READ macro 137 
WRITE macro 185 
standard form 112-116 
TYPE 11494, 117, 119 
use by access method 193 
open operation, testing 1149- 
open options 112-114 
operands 
substitution for 4 
OPTCD operand 
in DCB macro 


116 


BDAM 35 
BISAM 41 
BPAM 47 
BSAM 62 
QISAM 70 
QSAM 86-87 


in SETPRT macro 150 
optical mark read mode 

See OMR 
option codes 

See OPTCD operand 
organization, data set 

See access methods 
OUTIN operand COPEN macro) 11 
OUTINX operand COPEN macro) 1 
output data set 

closing 21-23 

opening 112-116 

WRITE or ce specified in DCB macro 


3 
13 


BDAM 
BISAM 40 
BPAM 46 
BSAM 60 
QISAM 69 
QSAM 86 
writing 


BDAM 180-182 

BISAM 183-184 

BPAM 185 

BSAM 185 

BSAM (write to a direct data 

set) 186-187 

QISAM 127, 131 

QSAM 129-130 
OUTPUT operand (QPEN macro) 113 
overflow 





area 
independent 70 
channel 125 
exit address (PRTOV macro) 125 
printer carriage 5 
overflow, track 


BDAM 36 
BPAM 47 
BSAM 63 
QSAM 88 


restrictions 88 
chained scheduling 47, 88 
with OPTCD operand 88 
overlay frame 149 
overpranting 125 


[| 


parallel data access block 
See PDAB 
parameter list construction 
BUILDRCD macro 
CLOSE macro 24 
OPEN macro 117 
READ macro 1490 
SETPRT macro 159-160 
WRITE macro 189 
parameter list modification 
BUILDRCD macro 18 
CLOSE macro 26 
OPEN macro 119 
READ macro 141 
SETPRT macro 161-163 
WRITE macro 
partitioned data set 
macro instructions used with 193 
relationship to 
BLDL macro 8-10 
FIND macro 94 
STOW macro 164-165 
PDAB (parallel data access block) 
constructing 121 
generating a DSECT 122 
symbolic field names 219 
PDAB macro 
use by access method 193 
use of 121 
PDABD macro : 
symbolic field names 219 
use by access method 193 
POINT macro 
description 123-124 
relationship to 
NOTE macro 110 
restriction 
with BSP macro ll 
return codes 124 
specified in MACRF operand 
BPAM 4G 


BSAM 60 

use by access method 193 
position feedback 

current block 132, 181 

next block 133, 186 
position, relative key CRKP) 71 
positioning volumes 

using CHECK macro 19 

using CLOSE macro 21-23 

using FEOV macro 93 

using OPEN macro 112 

using POINT macro 123-124 


Index 
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prefix, block | 
See also BUFOFF operand 
effect on block length 51, 77 
effect on buffer length 52, 77 
effect on data alignment 50, 74 
print option for 3525 
BSAM 56, 58 
QSAM 80, 82 
Print Services Facility 
See PSF 
printer 
carriage control 27-126 
character set buffer loading 151 
control characters 199-200 
control information 146 
control tape 125-126 
forms control buffer loading 148 
skipping 27-29, 199-200 
spacing 27-200 
program, channel 
BISAM 41 
BPAM 46 
BSAM 60 
Pee option, data 
QSAM 81, 82 
PRTOV macro 
description 125 
use by access method 193 
PRTSP operand (DCB macro) 
BSAM 54-55 
QSAM 79 
PSF (CPrint Services Facility) 
relationship with SYNAD routine 64 
SYS1.FDEFLIB 146 
SYS1.FONTLIB 146 
SYSI1.PDEFLIB 146 
punch, card 55, 80 
PUT macro 
data mode (QSAM) 85, 130 
for 
QISAM 127 
QSAM 112-114 
locate mode 
QISAM 127 
QSAM 129 
move mode 
QISAM 127 
QSAM 130 
relationship with 
PRTOV macro 125 
SYNADAF macro 168 
TRUNC macro 177 
specified in DCB macro 
QISAM 69 
QSAM 85 
use by access method 193 
PUTX macro 
description 131 
output mode 131 
relationship with TRUNC macro 177 
specified in DCB macro 
QISAM 69 
QSAM 86 
update mode 131 
use by access method 193 
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QISAM (queued indexed sequential access 


method) 
general description 65 
macro instructions used with 193 


symbolic field names in DCB 213-216 


QSAM Cqueued sequential access method) 
general description 73 
macro instructions used with 193 


symbolic field names in DCB 202-212 


queued access technique 
See QISAM and QSAM 


[Le] 


RDBACK operand (COPEN macro) 113 
read backward 
magnetic tape 113, 137 
read column eliminate mode 
BSAM 57 
QSAM 81 
READ macro 
execute form 141 
for 
BDAM 132-134, 139 
BISAM 134-135 
BPAM 137-138 
BSAM 137-139 
list form 140 
relationship to 
BFTEK operand 31, 50 
BUFL operand 32 
CHECK macro 19 
EODAD operand 45, 58 
FIND macro 94 
FREEDBUF macro 97 
KEYLEN operand 33 
LIMCT operand 34 
MACRF operand 34, 40, 46, 59-60 
NCP operand 41, 46, 60 
OPTCD operand 35 
POINT macro 123 
RELEX macro 142 
WAIT macro 178 
WRITE macro 180-182 
specified in DCB macro 
BDAM 34 


BISAM 40 
BPAM 46 
BSAM 59 


standard form 
BDAM 132-134 
BISAM 134-135 
BPAM 137-138 
BSAM Cread direct data set) 139 
BSAM Cread sequential data 
set) 137-138 
use by access method 193. 
reason codes 
BLDL macro 10 
BSP macro 12 
FIND macro 95 
SETPRT macro 157 
STOW macro 165-167 
RECFM operand CDCB macro) 
BDAM 36 
BPAM 47 
BSAM 62-64% 
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QISAM 7] 
QSAM 88-89 
record 

area 
construction 137 
deletion option CISAM) 70 
format Csee RECFM operand) 1 
length Csee LRECL operand) ] 


descriptor word, relationship with 


BSAM 52 
QISAM 66, 68 
QSAM 84 
physical 
See BLKSIZE operand 
retrieval 99-102, 132-139 
segment 129 
variable-length, spanned 16, 76 
writing 127-131, 180-187 
recording density, magnetic tape 
BSAM 54 
QSAM 79 
recording technique, magnetic tape 
BSAM 54 
QSAM 79 
register 
contents on entry to 
DCB exit routine 198 
overflow exit routine 125 
DCBD base 90-9] 
usage rules 5 
relative addressing 
BDAM 36 
FIND macro 94 
POINT macro 124 
relative key position 71 
release 
buffer 96 
buffer pool 98 
dynamically acquired buffer 97 
exclusive control 
QSAM buffer 143 
RELEX macro 
description 142 
relationship to MACRF operand 35 
return codes 142 
use by access method 193 
relexp defined 5 
relocatable expression defined 5 
RELSE macro 
use by access method 193 
use of 143 
reorganization statistics (ISAM) 70 
REREAD option 
CLOSE macro 21 
OPEN macro 114 
restore data control block 21-23 
return codes 
BLDL macro 10 
BSP macro 12 
FIND macro 94 
MSGDISP macro 109 
NOTE macro lll 
POINT macro 124 
RELEX macro 142 
SETPRT macro 152-156 
STOW macro 165-167 
SYNADAF macro 169 
SYNADRLS macro 171 
WRITE macro 188 
RETURN macro 
a with SYNAD operand 


BDAM 
BISAM 42 
BPAM 48 





BSAM 64 
QISAM 72, 201 
QSAM 89 


REWIND option 
CLOSE macro 21 
FEOV macro 93 
REXMIT operand 
SETPRT macro 151 
RKP (Crelative key position) operand 
RKP operand (DCB macro) 68 
RO record 
See capacity record 
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save area 
general register requirements 5 
SYNADAF requirement 
SYNADRLS macro 171 
scan mode 69 
search 
partitioned data set directory 
BLDL macro 8-10 
FIND macro 94 
type of 
BDAM 34 
QISAM 69 
search argument 
BDAM 34 
QISAM 68 
search direct option 8/7 
search option, extended 35 
segment 
buffer 127 
descriptor word 51, 139 
interface, restriction 15 
work area 
sequential access methods 
See access methods 
services, optional 


BDAM 35 
BPAM 47 
BSAM 60-61 
QISAM 70 
QSAM 86 
SETL macro 


description 144-145 
relationship to 
ESETL macro 92 
GET macro 99 

use by access method 193 
SETPRT macro 

blocking/unblocking data checks 

execute form 161-163 

list form 159-160 

printing by print train or band 

reason codes for 3800 15/7 

return codes 152-156 

selecting UCS and FCB images 146 

standard form 1496-158 

use by access method 193 
simple buffering 
skipping, printer 

See also spacing, printer 

CNTRL macro 27 

control characters 199-200 
SMSI operand (DCB macro) 41 
SMSW operand (DCB macro) 42 
space, magnetic tape 

backward ll, 27 

forward 27 
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spacing, printer 
See also skipping, printer 
CNTRL macro 27 
control characters 199-200 
specified in DCB macro 
BSAM 54 
QSAM 79 
spanned records 
See variable-length, spanned records 
STACK operand CDCB macro) 
BSAM » 57 
QSAM 80, 82 
stacker selection 
CNTIRL macro 27-29 
control characters 199-200 
specified in DCB macro 
55, 57 
QSAM 80, 82 
standard blocks 
restriction with OPTCD operand 88 
specifying 63, 88 
statistics reorganization CISAM) 70 
status 
following an I/0 operation 192 
STOW macro 
description 164-167 
directory action 165 
reason codes’ 165 
return codes 165-167 
use by access method 193 
switching volumes 
CHECK macro 19 
FEOV macro 93 
symbol defined 4 
SYNAD exit routine 
relationship with 
CHECK macro 19 
CNTRL macro 29 
DCB macro (see SYNAD operand) 1 
GET macro 99, 102 
POINT macro 124 
PUT macro 128, 130 
PUTX macro 131 
SETL macro 145 
SYNADAF macro 169 
specifying in DCB macro 
BDAM 37 


BISAM 42 
BPAM 48 
BSAM 64 
QISAM 72 
QSAM 89 
SYNAD operand CDCB macro) 
BDAM 37 
BISAM 42 
BPAM G48 
BSAM 64 
QISAM 72 
QSAM 89 
SYNAD routine - 
relationship with PSF (Print Services 
Facility) 
SYNADAF macro 
description 168-169 
relationship with SYNADRLS macro 17] 
return codes 169 
use by access method 193 
SYNADRLS macro 
description 17] 
relationship with SYNADAF macro 168 
return codes 171 
use by access method 193 
SYNCDEV macro 172 


synchronizing I/0 operations 19, 
178-179 
synchronous error exit 
See SYNAD operand 
SYSIN DD statement 
BSP macro 11 
CNTRL macro 27 
FEOV macro 93 
MACRF operand 60 
NOTE macro 11l 
OPEN macro 112, 113 
OPTCD operand 61, 87 
PUTX macro 13] 
RECFM operand 89 
RELSE macro 143 
SYSOUT DD statement 
BSP macro ll 
CNTRL macro 27 
FEOV macro 93 
MACRF operand 60 | 
NOTE macro 111 , 
OPEN macro 112, 113 
OPTCD operand 61, 87 
POINT macro 124 
PUTX macro 131 


table reference character 





See TRC _ 
tape density, magnetic 
BSAM 54 
QSAM 79 
tape error recovery procedure 
BSAM 62 i. 
QSAM_ 87 SO 
tape recording technique : 
BSAM 54 
QSAM 79 


temporary close 
of data set 2] 
termination, abnormal 
check routine 19 
end-of-data 
See EODAD operand 
uncorrectable I/0 error 
See SYNAD operand 
testing completion of I/O 19, 178-179 
testing for open data set 114-116 
totaling exit, user 


list format 197 


QSAM_ 84 
track addressing, relative 
BDAM 36 


FIND macro 94 

POINT macro 124 
track index write, full 70 
track overflow 

BDAM 36 


BPAM 47 

BSAM 63 

QSAM 88 

restrictions 
chained scheduling 47, 88 
with OPTCD operand 88 

translation 

ASCII to EBCDIC 
CHECK macro 19 
GET macro 100 
XLATE macro 191 
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EBCDIC to ASCII 
PUT macro 129 
WRITE macro 185 
XLATE macro 191 
paper tape code 54 
transmittal modes 
See also MACRF operand 
data 85, 101, 130 
locate 99, 100, 129 
move 99, 101, 127, 130 
specifying 69 
TRC Ctable reference character 
3800) 61, 86, 150 
TRICH operand (CDCB macro) 
BSAM 54 
QSAM 79 
TRUNC macro 
description 177 
specified in QSAM DCB 86 
use by access method 193 
truncating a block 177 
TYPE=P (GET macro) 102 
TYPE=T CCLOSE macro) 21-23 
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U-format records 

BDAM 36 

BPAM 48 

BSAM 63 

QSAM 88 
UCS Cuniversal character set) 

unblocking data checks 6l, 
UCS operand CSETPRT macro) 151 
unblocking data checks 

BSAM 61 

QSAM 87 

SETPRT macro 150 
uncorrectable I/0O errors 

see SYNAD operand 
undefined length records 

See U-format records 
universal character set 

See UCS 
unmovable data sets 

See DSORG operand 
UPDAT operand 

OPEN macro 113, 123, 137 

restriction with POINT macro 123 

restriction with READ macro 137 
updating partitioned data set 
directory 164-165 
user 

data in partitioned data set 

directory 

BLDL macro 8-10 
STOW macro 164-165 


87 


label exit 
BSAM 59 
list format 197 
QSAM 84 
totaling exit 
BSAM 59 
list format 197 
QSAM 84 


USING statement requirement 
DCBD macro 90-91 
PDABD macro 122 





V-format records 
BDAM 36 


BPAM 48 
BSAM 63 
QISAM 71 
QSAM 88 
validity checking 
BDAM 36 
BPAM G7 
BSAM 62 
QISAM 70 
QSAM 87 


variable-length record (format-V) 
See V-format records 
Variable-length, spanned records 
See also V-format records 
restriction with 
FEOV macro 93 
GET macro 100 
OPTCD operand 61, 88 
using BFTEK 31, 50, 76 
using BUILDRCD macro 16 
using PUT macro 129 
writing for BDAM 186 
volume 
forcing end of 93 
volume positioning 
CHECK macro 19 
CLOSE macro 21-23 
FEOV macro 93 
OPEN macro 112 
POINT macro 123-124 
volume switching 19, 93 
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WAIT macro 
description 178-179 
relationship to 
CHECK macro 19 
MACRF operand 34 
READ macro 132, 135 
WRITE macro 180, 183 
use by access method 193 
work area 
for BISAM 
address of 42 
size of 42 
WRITE macro 
execute form 190 
list form 189 
relationship to 
BUFL operand 32 
CHECK macro 19 
KEYLEN operand 33 
LIMCT operand 34 
MACRF operand 34, G0, 46, 60 
NCP operand 41, 46, 60 
OPTCD operand 35 
POINT macro 123 
PRTOV macro 125 
READ macro 132, 135, 137 
RELEX macro 142 
SYNADAF macro 168 
WAIT macro 178 
return codes 188 
specified in DCB macro 


Index 
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BDAM 34-36 


BISAM 40 
BPAM 46 
BSAM 59-60 


standard form 
BDAM Ccreate with BSAM) 186-188 
BDAM Cexisting) 180-182 
BISAM 183-184 
BPAM 185 
BSAM 185 
testing for completion 19, 178-179 
use by access method 193 
WTOR macro 
relationship with SETPRT macro 149 


XCTL macro 

relationship with BLDL macro 8 
XLATE macro 

use by access method 193 

use of 191 
XLRI Cextended logical record interface) 

~ BUILDRCD macro 15 
GET macro 


use 
QSAM 85 


Numerics 


3480 magnetic tape subsystem 
record length 194 
3800 Model 3 printer 64, 146 


ff, 
: t 





242 MVS/XA Data Administration: Macro Instruction Reference 








Reader's 
Comment 


MVS/XA Data Administration: 
Form 


Macro Instruction Reference 
GC26-4141-2 





This manual is part of a library that serves as a reference source for system analysts, programmers, and operators of 
IBM systems. You may use this form to communicate your comments about this publication, its organization, or 
subject matter, with the understanding that IBM may use or distribute whatever information you supply in any way 
it believes appropriate without incurring any obligation to you. 

Your comments will be sent to the author’s department for whatever review and action, if any, are deemed 
appropriate. 
Note: Do not use this form to request IBM publications. If you do, your order will be delayed because publications 
are not stocked at the address printed on the reverse side. Instead, you should direct any requests for copies of 
publications, or for assistance in using your IBM system, to your IBM representative or to the IBM branch office 
serving your locality. 


If you wish a reply, give your name, company, mailing address, and telephone number. 


_ah automated mail sorting equipment. 


Please use pressure sensitive or other gummed tape to seal this form. 


Staples can cause problen. 


Note: 


If you have applied any technical newsletters (TNLs) to this book, please list them here: 
Last TNL 


Previous TNL 





Fold on two lines, tape, and mail. No postage stamp necessary if mailed in the U.S.A. 
(Elsewhere, an IBM office or representative will be happy to forward your comments or you 
may mail directly to the address in the Edition Notice on the back of the title page.) 


Thank you for your cooperation. 


GC26-4141-2 


Reader’s Comment Form 


Fold and tape | Please do not staple 


eorvreoeoereoeoevoeve eee ee wesw eases eee eee eee eee sees eee ee ee ere ee eere eee eee nese eee erevoee ere severe erererwr eee we ee eee eee ereeneereaeereeeewerseeeseeoeeveer eevee ee sees eeioneeeeeeaesee 


BUSINESS REPLY MAIL 





FIRST CLASS PERMIT NO. 40 ARMONK,N.Y. 
POSTAGE WILL BE PAID BY ADDRESSEE 


IBM Corporation 

P.O. Box 50020 
Programming Publishing 
San Jose, California 95150 


eveeeeeerorseaeseerer eee eee eee eee ee seer eee e eee eee eneaeseeovreeeeseraneeseeerenre reuse veeeseetreereereereoeoeeeetee SESS HHH HSH DBE ROHS HMO HHHEHOHOHH HHH HOH OHS OOH BOR H EHD O O 


Fold and tape Please do not staple 





Fold and tape 







NO POSTAGE 
NECESSARY 
IF MAILED 
IN THE 
UNITED STATES 


-OLZES ‘ON Af!4) aouasajyay UO!ONIAYsU] O4 


Fold and tape 


Z-Lply-9Z9D ‘WSN ul paulig (rE 


Qe) -UOHessIUlwpY e1eq VWXx/SAW. 


aa 





Pant 

















MVS/Extended Architecture Fite Number S370-34 
Data Administration: 
\V Foor gem fatspegelondlolamint>)i>1a-101e1> 


~ {ft 








Printed in U.S.A. 














